|
皆様のアドバイスや書き込みを参考にして、
下記のような感じに作ってみたのですが、
各シートでの作業時間がものすごく長いのですが、
何が原因があるのでしょうか?
よろしくお願いいたします。
-------------------------------------------------------------------
Dim i As Long
For i = 1 To Worksheets.Count
Sheets(i).Select
'ボタン削除
ActiveSheet.Shapes.Range(Array("その1", "その2")).Select
Selection.Delete
' 列幅調整
Columns("S:S").ColumnWidth = 31
Columns("R:R").EntireColumn.AutoFit
Columns("B:E").EntireColumn.AutoFit
Columns("A:A").ColumnWidth = 9.38
Columns("M:M").ColumnWidth = 6
Columns("G:G").ColumnWidth = 34
End With
-------------------------------------------------------------------
|
|