質問編集履歴
3
sheet5の追加
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -8,15 +8,16 @@
|
|
|
8
8
|
|
|
9
9
|
・フォルダ内に1 (1), 1 (2), ...... , 1 (26)というエクセルファイル(xlsx)がある。
|
|
10
10
|
・それぞれB列からD列をコピーし、結合用のマクロファイルのmergeシートに右に右に貼り付け結合したい。
|
|
11
|
+
隣に並べていきたい。
|
|
11
12
|
|
|
12
13
|
例
|
|
13
|
-
1 (1).xlsx
|
|
14
|
+
1 (1).xlsx _Sheet5_
|
|
14
15
|
|A|B|C|D|E|
|
|
15
16
|
|:--|:--:|--:|--:|--:|
|
|
16
17
|
|30|**_12_**|**_44_**|**_85_**|62|
|
|
17
18
|
|14|**_65_**|**_23_**|**_69_**|40|
|
|
18
19
|
|
|
19
|
-
1 (2).xlsx
|
|
20
|
+
1 (2).xlsx _Sheet5_
|
|
20
21
|
|A|B|C|D|E|
|
|
21
22
|
|:--|:--:|--:|--:|--:|
|
|
22
23
|
|17|**_11_**|**_42_**|**_45_**|2|
|
|
@@ -43,7 +44,7 @@
|
|
|
43
44
|
Application.CutCopyMode = False
|
|
44
45
|
|
|
45
46
|
追記
|
|
46
|
-
・コピー対象のシートは一つです。
|
|
47
|
+
・一つのエクセルファイルにつき、コピー対象のシートは一つです。
|
|
47
48
|
コピー対象でないシートはあると思いますが、コピー対象のシート名は共通です。(Sheet5など)
|
|
48
49
|
|
|
49
50
|
・データは、結合するデータの元となるファイル(1 (1).xlsxなど）のファイル名でソートした順番で並べたいと考えております。
|
2
コピー対象のシートについて、結合データの例を追加
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -43,7 +43,12 @@
|
|
|
43
43
|
Application.CutCopyMode = False
|
|
44
44
|
|
|
45
45
|
追記
|
|
46
|
+
・コピー対象のシートは一つです。
|
|
47
|
+
コピー対象でないシートはあると思いますが、コピー対象のシート名は共通です。(Sheet5など)
|
|
48
|
+
|
|
46
49
|
・データは、結合するデータの元となるファイル(1 (1).xlsxなど）のファイル名でソートした順番で並べたいと考えております。
|
|
50
|
+
1 (1).xlsxのSheet5のB列からD列 → 1 (2).xlsxのSheet5のB列からD列→ ……
|
|
51
|
+
|
|
47
52
|
・『「フォルダ内にある複数ファイル」を読み込む処理』については、上記のサイトの
|
|
48
53
|
Sub folder()
|
|
49
54
|
Sub shuukei()
|
1
結合ルールについて、現在悩んでいる箇所
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -42,3 +42,16 @@
|
|
|
42
42
|
Cells(1, i + 3).PasteSpecial
|
|
43
43
|
Application.CutCopyMode = False
|
|
44
44
|
|
|
45
|
+
追記
|
|
46
|
+
・データは、結合するデータの元となるファイル(1 (1).xlsxなど）のファイル名でソートした順番で並べたいと考えております。
|
|
47
|
+
・『「フォルダ内にある複数ファイル」を読み込む処理』については、上記のサイトの
|
|
48
|
+
Sub folder()
|
|
49
|
+
Sub shuukei()
|
|
50
|
+
こちらの処理を参考にしております。
|
|
51
|
+
|
|
52
|
+
>MergeWorkbook_data = Workbooks(MergeWorkbook).Worksheets(i).Range("a" & Rows.Count).End(xlUp).Row
|
|
53
|
+
>ThisWorkbook_data = ThisWorkbook.Worksheets("merge").Range("a" & Rows.Count).End(xlUp).Row
|
|
54
|
+
>Workbooks(MergeWorkbook).Worksheets(i).Rows("2:" & MergeWorkbook_data).Copy ThisWorkbook.Worksheets("merge").Range("a" & ThisWorkbook_data + 1)
|
|
55
|
+
下でなく横につなげるためにはこのあたりを変更しなければならないと思っていますが、
|
|
56
|
+
うまくいっていない状態です。
|
|
57
|
+
|