VBAマクロがうまく動きません

質問

こんにちは。いつもお世話になっております。

掲題の通りなのですが、下記のマクロを作り、
あるブック(毎回異なります)の全シート(毎回名前も数も異なります)
に対して、同じ作業をしてほしいのですが、
1シート目で止まってしまいます。
特にエラー表示も出ないので、何が違っているのか
わからず、どのように修正をしたらよいか、ご教示いただければ
幸いです。
エクセル2010を使用、パーソナルブックにマクロ登録しています。

Sub Test()
Dim i As Integer
' 現在のブックのシート数を取得
For i = 1 To ThisWorkbook.Worksheets.Count
'保護解除
Worksheets(i).Unprotect Password:=""
'非表示列を表示
Worksheets(i).Columns.Hidden = False
'A列挿入数式コピー、オートフィル
Worksheets(i).Columns(1).Insert
Range("A12") = "=B12&C12"
Range("A12").AutoFill Destination:=Range("A12:A" & Range("D" & Cells.Rows.Count).End(xlUp).Row), Type:=xlFillCopy
Next i
End Sub

よろしくお願い致します。

回答No.3

MSZ006 · ベストアンサー

A列挿入は全シートされていますか？

列挿入はされているがオートフィルがされていない、という場合は、
Cells.Rows.Count　の所もWorksheets(i). Cells.Rows.Count としてみてください。
これでダメだったら私もお手上げです。

列挿入もされていない、という場合はちょっと私にもわかりません。

お礼

ありがとうございます！解決しました！

補足

For i = 1 To ThisWorkbook.Worksheets.Count

が間違っていたようで、

For i = 1 To Worksheets.Count
としたら動きました、、、

色々指定すれば良いというものでもなかったようです。
プログラムは奥が深いですね。
ありがとうございます。

回答No.2

MSZ006

すみません。説明不足でした。
すべてのRangeの前にWorksheets(i).をつけるので、

Worksheets(i).Range("A12").AutoFill Destination:=Worksheets(i).Range("A12:A" & Worksheets(i).Range("D" & Cells.Rows.Count).End(xlUp).Row), Type:=xlFillCopy

のようにしてみてください。

補足

Dim i As Integer

' 現在のブックのシート数を取得
For i = 1 To ThisWorkbook.Worksheets.Count

'保護解除
Worksheets(i).Unprotect Password:=""

'非表示列を表示
Worksheets(i).Columns.Hidden = False

'A列挿入数式コピー、オートフィル
Worksheets(i).Columns(1).Insert

Worksheets(i).Range("A12") = "=B12&C12"
Worksheets(i).Range("A12").AutoFill Destination:=Worksheets(i).Range("A12:A" & Worksheets(i).Range("D" & Cells.Rows.Count).End(xlUp).Row), Type:=xlFillCopy

Next i

End Sub

全ての選択の前にワークシート指定が必要なんですね。
構文の先頭だけでいいと思っていました。

上記のように直しましたが、変わらず1シートで止まってしまいます（涙）

回答No.1

MSZ006

Range("A12") = "=B12&C12"
Range("A12").AutoFill Destination:=Range("A12:A" & Range("D" & Cells.Rows.Count).End(xlUp).Row), Type:=xlFillCopy

ここの部分、ワークシートが明示されていないのでアクティブシートに対して操作されているのではないでしょうか。Worksheets(i).Range("A12")のようにしてみてください。

補足

ありがとうございます。
以下のように修正しましたが、やはり1シート目で終わってしまいます…。

Dim i As Integer

' 現在のブックのシート数を取得
For i = 1 To ThisWorkbook.Worksheets.Count

'保護解除
Worksheets(i).Unprotect Password:=""

'非表示列を表示
Worksheets(i).Columns.Hidden = False

'A列挿入数式コピー、オートフィル
Worksheets(i).Columns(1).Insert

Worksheets(i).Range("A12") = "=B12&C12"
Worksheets(i).Range("A12").AutoFill Destination:=Range("A12:A" & Range("D" & Cells.Rows.Count).End(xlUp).Row), Type:=xlFillCopy

Next i

End Sub

何がいけないのでしょうか…。（涙）