回答編集履歴
1
同じグループは同じ列に格納するようにしました。
test
CHANGED
|
@@ -21,7 +21,7 @@
|
|
|
21
21
|
ws.Cells(trg_row, trg_col).Resize(, 2).Value = ws.Cells(src_row, 1).Resize(, 2).Value
|
|
22
22
|
count = count + 1
|
|
23
23
|
trg_row = trg_row + 1
|
|
24
|
-
If count >= CUNIT Then
|
|
24
|
+
If count >= CUNIT And ws.Cells(trg_row, 1).Value <> "" Then
|
|
25
25
|
count = 0
|
|
26
26
|
trg_col = trg_col + 2
|
|
27
27
|
trg_row = 2
|