|
> 一行おきに空白行を入れたいときは ソートを使う方法もありますよ。
この方法の参考サンプルです。
T列から25列分のデータを
O列から25列の位置へ移動し、1行おきに空行を挿入します。
(A列のほうはいじらないので元のままです)
Sub Try1() '移動して2行化
Dim r As Range
Dim v
Dim i&
Dim yy&
Const xx = 25 '移動するデータ列数
yy = Cells(Rows.Count, 1).End(xlUp).Row - 1
Set r = Range("T2").Resize(yy + yy, xx)
v = r.Resize(, xx + 1).Value
r.ClearContents
For i = 1 To yy
If Not IsEmpty(v(i, 2)) Then
v(i, xx + 1) = i
v(i + yy, xx + 1) = i
End If
Next
Set r = Range("O2").Resize(yy + yy, xx + 1)
r.Value = v
r.Sort Key1:=r.Columns(xx + 1), Header:=xlNo
r.Columns(xx + 1).Clear
End Sub
Excelのソートは速いので、
1000行くらいなら たぶん一瞬だと思います。
|
|