回答編集履歴
1
ソース修正
answer
CHANGED
|
@@ -42,7 +42,7 @@
|
|
|
42
42
|
.Range(.Cells(2, columnIdx), .Cells(2 + (i - rbRow), columnIdx)).Value = Range(Cells(rbRow, 2), Cells(i, 2)).Value
|
|
43
43
|
End With
|
|
44
44
|
'範囲開始行数に現在行を設定
|
|
45
|
-
rbRow = i
|
|
45
|
+
rbRow = i + 1
|
|
46
46
|
'列インデックスをインクリメント
|
|
47
47
|
columnIdx = columnIdx + 1
|
|
48
48
|
End If
|