回答編集履歴
2
ミスが有った部分をこっそり修正
test
CHANGED
|
@@ -46,11 +46,11 @@
|
|
|
46
46
|
|
|
47
47
|
For Each v2 In dc(v)
|
|
48
48
|
|
|
49
|
-
wb2.Sheets(
|
|
49
|
+
wb2.Sheets(v).Cells(row, "C") = v2(0) 'Item1の転記-No.
|
|
50
50
|
|
|
51
|
-
wb2.Sheets(
|
|
51
|
+
wb2.Sheets(v).Cells(row, "D") = v2(1) 'Item2の転記-Code
|
|
52
52
|
|
|
53
|
-
wb2.Sheets(
|
|
53
|
+
wb2.Sheets(v).Cells(row, "E") = v2(2) 'Item3の転記-Name
|
|
54
54
|
|
|
55
55
|
|
|
56
56
|
|
1
一部修正
test
CHANGED
|
@@ -46,11 +46,11 @@
|
|
|
46
46
|
|
|
47
47
|
For Each v2 In dc(v)
|
|
48
48
|
|
|
49
|
-
wb2.Sheets("転記(2)").Cells(
|
|
49
|
+
wb2.Sheets("転記(2)").Cells(row, "C") = v2(0) 'Item1の転記-No.
|
|
50
50
|
|
|
51
|
-
wb2.Sheets("転記(2)").Cells(
|
|
51
|
+
wb2.Sheets("転記(2)").Cells(row, "D") = v2(1) 'Item2の転記-Code
|
|
52
52
|
|
|
53
|
-
wb2.Sheets("転記(2)").Cells(
|
|
53
|
+
wb2.Sheets("転記(2)").Cells(row, "E") = v2(2) 'Item3の転記-Name
|
|
54
54
|
|
|
55
55
|
|
|
56
56
|
|