回答編集履歴
1
コード修正
test
CHANGED
|
@@ -46,13 +46,9 @@
|
|
|
46
46
|
|
|
47
47
|
wbName = Replace(wb.name, ".xlsx", "") '拡張子".xlsx"を削除
|
|
48
48
|
|
|
49
|
-
Debug.Print wbName
|
|
50
|
-
|
|
51
|
-
|
|
52
|
-
|
|
53
49
|
Select Case wbName
|
|
54
50
|
|
|
55
|
-
Case "01北海道", "02東京", "03大阪", "名古屋", "05福岡"
|
|
51
|
+
Case "01北海道", "02東京", "03大阪", "04名古屋", "05福岡"
|
|
56
52
|
|
|
57
53
|
wb.Sheets(2).name = wbName & " 内訳"
|
|
58
54
|
|