質問編集履歴
1
コードを1行記載忘れました
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -112,7 +112,9 @@
|
|
|
112
112
|
|
|
113
113
|
Do While Cells(i, 1).Value <> ""
|
|
114
114
|
|
|
115
|
-
|
|
115
|
+
Filename = Cells(i, 1).Value
|
|
116
|
+
|
|
117
|
+
Cells(i, 1).Copy
|
|
116
118
|
|
|
117
119
|
Sheets(data1).Cells(1, 3).PasteSpecial xlPasteValues
|
|
118
120
|
|