質問編集履歴
2
いらない文言の削除
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -7,11 +7,6 @@
|
|
|
7
7
|
１つのファイルのみの”A2：B2”がコピペされているようでした。
|
|
8
8
|
当方初心者で原因がどうしてもわからないので、教えていただけると幸いです。
|
|
9
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
|
-
|
|
15
10
|
ーーーーーーー以下書いたコード
|
|
16
11
|
|
|
17
12
|
VBA
|
1
コードブロックの修正
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -14,6 +14,10 @@
|
|
|
14
14
|
|
|
15
15
|
ーーーーーーー以下書いたコード
|
|
16
16
|
|
|
17
|
+
VBA
|
|
18
|
+
コード
|
|
19
|
+
```
|
|
20
|
+
|
|
17
21
|
Sub 一括取込()
|
|
18
22
|
Dim folderPath As String
|
|
19
23
|
Dim filePath As String
|