質問編集履歴
2
ソースコードを指定の書式に変更いたしました。
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -37,6 +37,7 @@
|
|
|
37
37
|
|
|
38
38
|
|
|
39
39
|
### 該当のソースコード
|
|
40
|
+
```VBA
|
|
40
41
|
|
|
41
42
|
Sub TEST()
|
|
42
43
|
Dim myPath As String
|
|
@@ -62,4 +63,5 @@
|
|
|
62
63
|
myFile = Dir()
|
|
63
64
|
|
|
64
65
|
Loop
|
|
65
|
-
End Sub
|
|
66
|
+
End Sub
|
|
67
|
+
```
|
1
参照元（=集計元=情報源）がどの箇所か分かるようにやりたいことに「ブック、シート名の取得と貼り付け」を記載しました。コードに関してはDirを使うのだろうという目星はついておりますが、組み立てが分からず
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -15,8 +15,9 @@
|
|
|
15
15
|
・各シートはブックが分かれていても全て共通のフォーマット
|
|
16
16
|
|
|
17
17
|
|
|
18
|
-
①集計元のブック（元データが記載されている）の各シートのA2のセルをコピー → 集計先の
|
|
18
|
+
①集計元のブック（元データが記載されている）の各シートのA2のセルをコピー → 集計先のB列に貼り付け
|
|
19
|
-
②集計元のブック（元データが記載されている）のD2のセルをコピー → 集計先の
|
|
19
|
+
②集計元のブック（元データが記載されている）のD2のセルをコピー → 集計先のC列に貼り付け
|
|
20
|
+
③集計元のブック、シート名をA列にはりつけ
|
|
20
21
|
|
|
21
22
|
ということをおこないたいです。
|
|
22
23
|
やりたいことと乖離してしまっているためご教示を頂きたいです。
|