VBAでおしえてください

質問

お世話になります
同一フォルダ内に５個のエクセルファイルがあります。
中身の形式は一緒でA1～Y50まで数値が並んでいます。
（５個の違いは、追い番でファイル名を変えただけです）
このファイルの行番号１に１行を挿入して、５個のファイルの同じセルに同じ文字を
書き込みたいです。
A1セル：東京
B1セル：新潟
・
・
Y1：山形

これのマクロを組みたいのですが、お教え願えないでしょうか？
よろしくお願いします
分かりづらい文章ですみません

回答No.1

papayuka · ベストアンサー

自動で開くところまでは書いてません。
一緒に開いていて、非表示になっていない全てのブックに処理をします。

1）新規ブックの標準モジュールに下記のマクロをコピペ
2）そのブックのSheet1 A1:Y1に挿入に使いたい文字を書く
3）対象となる5個のファイルを開く
4）マクロを実行

Sub Test()
Dim wb As Workbook
For Each wb In Workbooks
　If Not wb Is ThisWorkbook And Windows(wb.Name).Visible Then
　　 ThisWorkbook.Worksheets(1).Rows(1).Copy
　　 wb.Worksheets(1).Rows(1).Insert Shift:=xlDown
　End If
Next wb
Application.CutCopyMode = False
End Sub

お礼

すばらしいーですぅ。できました、５個じゃなくてもできるんですね
ありがとうございます、