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

vba-複数シートの同一セルに同じ値入力-アイキャッチ ExcelVBA

エクセルマクロで、複数シートの同一セルに同じ値入力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」には値を入力しないように設定しています。


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

【エクセルマクロ】複数シートのデータを1シートにまとめる:動画あり
...

 

「Excel自動化[最強]時短仕事術」
自動化の基礎と時短に役立つテクニック解説書
毎日の定型業務を手際良く行え、大幅な業務効率化を実現!