PCメモ

Excelを中心とした業務改善の記録

全シートA1選択

全てのシートでA1を

 

Dim i As Long
 For i = Sheets.Count To 1 Step -1
 Sheets(i).Select
 Range("A1").Select
Next

 

For i = Sheets.Count To 1 Step -1

Step -1 とすることで、最後に1番目のシートが選択されて終了する。

 

 

f:id:abv72:20201006222311p:plain