回答編集履歴

ミスが有った部分をこっそり修正

2021/07/09 15:01

投稿

スコア443

answer CHANGED Viewed

@@ -22,9 +22,9 @@
         row = 10
         For Each v2 In dc(v)
-            wb2.Sheets("転記(2)").Cells(row, "C") = v2(0)    'Item1の転記-No.
+            wb2.Sheets(v).Cells(row, "C") = v2(0)    'Item1の転記-No.
-            wb2.Sheets("転記(2)").Cells(row, "D") = v2(1)    'Item2の転記-Code
+            wb2.Sheets(v).Cells(row, "D") = v2(1)    'Item2の転記-Code
-            wb2.Sheets("転記(2)").Cells(row, "E") = v2(2)    'Item3の転記-Name
+            wb2.Sheets(v).Cells(row, "E") = v2(2)    'Item3の転記-Name
             row = row + 1
         Next

一部修正

2021/07/09 15:01

投稿

スコア443

answer CHANGED Viewed

@@ -22,9 +22,9 @@
         row = 10
         For Each v2 In dc(v)
-            wb2.Sheets("転記(2)").Cells(I + row, "C") = v2(0)    'Item1の転記-No.
+            wb2.Sheets("転記(2)").Cells(row, "C") = v2(0)    'Item1の転記-No.
-            wb2.Sheets("転記(2)").Cells(I + row, "D") = v2(1)    'Item2の転記-Code
+            wb2.Sheets("転記(2)").Cells(row, "D") = v2(1)    'Item2の転記-Code
-            wb2.Sheets("転記(2)").Cells(I + row, "E") = v2(2)    'Item3の転記-Name
+            wb2.Sheets("転記(2)").Cells(row, "E") = v2(2)    'Item3の転記-Name
             row = row + 1
         Next