質問編集履歴
1
コードを1行記載忘れました
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -55,7 +55,8 @@
|
|
|
55
55
|
|
|
56
56
|
'会社名を貼り付け
|
|
57
57
|
Do While Cells(i, 1).Value <> ""
|
|
58
|
-
|
|
58
|
+
Filename = Cells(i, 1).Value
|
|
59
|
+
Cells(i, 1).Copy
|
|
59
60
|
Sheets(data1).Cells(1, 3).PasteSpecial xlPasteValues
|
|
60
61
|
|
|
61
62
|
'再計算後10秒待機
|