【エクセルマクロ】複数シートの同一セルに同じ値入力：コピペで使えるコード

エクセルマクロで、複数シートの同一セルに同じ値入力VBAコードをご紹介します。

このページのマクロコードは、コピペで使えます。
ぜひ、お試しください。

複数シートの同一セルに同じ値入力

以下のマクロを実行すると、複数シートの同じセルに値を一括入力します。

Sub 複数シートの同一セルに同じ値入力()

Dim ws As Worksheet

    For Each ws In Worksheets
        
        If ws.Name <> "Sheet4" Then
    
            ws.Range("A1") = "りんご"
            ws.Range("B1") = "めろん"
            ws.Range("C1") = "ばなな"
        
        End If
    Next ws
    
End Sub

マクロ実行後

「Sheet1」～「Sheet3」に同じ値を自動入力します。

[If ws.Name <> “Sheet4” Then] により、

「Sheet4」には値を入力しないように設定しています。

 
 
この記事がお役に立ちますと幸いです。
 

【VBA】複数シートのデータを1シートにまとめる(動画あり)

エクセルマクロで、複数シートのデータを1シートにまとめるマクロコードをご紹介します。このページのマクロコードは、コピペで使えます。ぜひお試しください！複数シートのデータを1シートにまとめる以下のマクロを実行すると、複数シートのデータを1枚に...

kirinote.com

2026.07.12