回答編集履歴
1
修正
test
CHANGED
|
@@ -18,7 +18,7 @@
|
|
|
18
18
|
|
|
19
19
|
For Each c In ws.Cells.Resize(, 1).SpecialCells(xlCellTypeConstants).Areas
|
|
20
20
|
|
|
21
|
-
c.Resize(rowSize, 16).Copy Sheet
|
|
21
|
+
c.Resize(rowSize, 16).Copy Worksheets("Sheet1").Cells(outRow, 1)
|
|
22
22
|
|
|
23
23
|
outRow = outRow + rowSize + 1
|
|
24
24
|
|