回答編集履歴
1
コード修正
test
CHANGED
|
@@ -4,7 +4,8 @@
|
|
|
4
4
|
Sub 一括クリア()
|
|
5
5
|
Dim Sh As Worksheet
|
|
6
6
|
For Each Sh In ThisWorkbook.Worksheets
|
|
7
|
-
If Sh.Name Like "
|
|
7
|
+
If Sh.Name Like "[0-9][0-9]" And Len(Sh.Name) = 2 Then
|
|
8
|
+
Sh.Activate
|
|
8
9
|
Sh.Range("A1").CurrentRegion.Offset(1, 0).ClearContents
|
|
9
10
|
End If
|
|
10
11
|
Next Sh
|