エクセルのマクロで、複数のシートで、指定のアクティブセルに移動する方法

質問

エクセルの複数のシートがあるファイルで、指定の位置にアクティブセルを移動するマクロを組むにはどうしたらよいでしょか。

複数のシートがあります。
アクティブセルが各シートばらばらの位置だと見栄えが悪いです。

そこで
B列の一番下から「END+↑」でとんだ位置で止まる。
複数のシート（20以上）を同じ作業
最後に一番左端のシートでをアクティブシートにして終了
※A列は空白行のため、必ず埋まっているB列を基準にしたい

マクロを教えたください。

回答No.3

merlionXX · ベストアンサー

こんな感じですね。

Sub TEST1()
Dim sh As Worksheet
For Each sh In Worksheets
sh.Activate
sh.Cells(Rows.Count, "B").End(xlUp).Activate
Next
Worksheets(1).Activate
End Sub

お礼

お返事ありがとうございます。

回答No.2

imogasi

最後にそろえておくという、質問の必要性が良くわからないが
Sub test01()
Dim sh As Worksheet
For Each sh In Worksheets
MsgBox sh.Name
sh.Activate
sh.Range("A65536").End(xlUp).Offset(1, 0).Select
Next
End Sub

お礼

お返事ありがとうございます。

回答No.1

pbforce

左端のシートを選択して、SHIFTキーを押しながら、右端のシートを選択すると全部のシートが選択状態になります。
その後B列～～を実行すれば全てのシートがそうなります。