質問編集履歴
2
いらない文言の削除
test
CHANGED
File without changes
|
test
CHANGED
@@ -6,11 +6,6 @@
|
|
6
6
|
テストした際は、特定フォルダに3つのファイルを格納しましたが、
|
7
7
|
1つのファイルのみの”A2:B2”がコピペされているようでした。
|
8
8
|
当方初心者で原因がどうしてもわからないので、教えていただけると幸いです。
|
9
|
-
|
10
|
-
ws2.Range("A2:E2").Copy
|
11
|
-
last = ws1.Cells(ws1.Rows.Count, "A").End(xlUp).Offset(1).Row
|
12
|
-
ws1.Range("A" & last).PasteSpecial Paste:=xlPasteValues
|
13
|
-
|
14
9
|
|
15
10
|
ーーーーーーー以下書いたコード
|
16
11
|
|
1
コードブロックの修正
test
CHANGED
File without changes
|
test
CHANGED
@@ -13,6 +13,10 @@
|
|
13
13
|
|
14
14
|
|
15
15
|
ーーーーーーー以下書いたコード
|
16
|
+
|
17
|
+
VBA
|
18
|
+
コード
|
19
|
+
```
|
16
20
|
|
17
21
|
Sub 一括取込()
|
18
22
|
Dim folderPath As String
|