回答編集履歴
2
先ほどと同じ不要なコードの修正
test
CHANGED
|
@@ -39,12 +39,10 @@
|
|
|
39
39
|
' 区切りの行数を超えたグループまでをコピー
|
|
40
40
|
Dim beginRow As Long 'コピーの開始行
|
|
41
41
|
Dim beginCol As Long 'ペーストの開始列
|
|
42
|
-
Dim numRows As Long 'ペーストする行数
|
|
43
42
|
Dim endRow As Variant '次のグループの開始行
|
|
44
43
|
beginCol = startCol
|
|
45
44
|
beginRow = startRow
|
|
46
45
|
For Each endRow In rowsColl
|
|
47
|
-
numRows = endRow - beginRow
|
|
48
46
|
.Range("A" & beginRow & ":B" & endRow - 1).Copy .Cells(startRow, beginCol)
|
|
49
47
|
beginRow = endRow '開始行更新
|
|
50
48
|
beginCol = beginCol + 2 '右に2列移動
|
1
つい、コピーメソッドをGASみたいなコードにしてましたので修正
test
CHANGED
|
@@ -45,7 +45,7 @@
|
|
|
45
45
|
beginRow = startRow
|
|
46
46
|
For Each endRow In rowsColl
|
|
47
47
|
numRows = endRow - beginRow
|
|
48
|
-
.Range("A" & beginRow & ":B" & endRow - 1).Copy .
|
|
48
|
+
.Range("A" & beginRow & ":B" & endRow - 1).Copy .Cells(startRow, beginCol)
|
|
49
49
|
beginRow = endRow '開始行更新
|
|
50
50
|
beginCol = beginCol + 2 '右に2列移動
|
|
51
51
|
Next endRow
|