-2

請求書をグループ化するために行間に改行を作成したいドキュメントがあります。

たとえば、私のドキュメントには次のように表示されます。

H   INV 96579551
N   606R00103216L   2003-
H   INV 96579583
N   606R00103216L   2003-
H   INV 96579584
N   606R00103216L   2003-

しかし、ドキュメントを次のように表示できるマクロを作成したいと思います。 

H   INV 96579551
N   606R00103216L   2003-

H   INV 96579583
N   606R00103216L   2003-


H   INV 96579584
N   606R00103216L   2003-

誰でも私にヒントを教えてもらえますか？ありがとう

4

1 に答える 1

0

これがうまくいくことを願っています（グループ化された行がソートされていると仮定します）

Sub Test()
    Set selectRows = Cells(3, 1) 'start from 3rd row
    For i = 3 To ActiveSheet.UsedRange.Rows.Count Step 2 'skip 2 rows (H & N group)
        Set selectRows = Union(selectRows, Cells(i, "A")) 'store the ODD cell references - starting from 3rd row
    Next i
    selectRows.EntireRow.Select 'select all the rows stored in the union reference
    Selection.Insert Shift:=xlDown 'simulate Ctrl+ to add a row
    Cells(1, 1).Select 'select the first cell - just to keep it clean :-)
End Sub
于 2013-10-02T11:25:36.697 に答える