vba - 1列に依存する空白行を自動挿入する方法は?

Question

そこに同じテーブルがあります

そして、最初の列のセルに応じて空白行を自動挿入したいのですが、

誰でも私を助けることができますか？私は多くの方法を試しましたが、どれも私が必要としているものではありません。私の英語でごめんなさい。

Answer 1

主キーとして 1 つのインデックス列を追加できます。次に、インデックス列のみを挿入し、すべてのフィールドが空白の PK を挿入します。

Answer 2

ボタンを作成し、次のマクロに割り当てます

Sub BRow()
    Dim WorkRng As Range
    Dim FirstRow As Integer
    Dim lngRows As Integer
    Dim lngCols As Integer

    Set WorkRng = Application.Selection
    Set WorkRng = Application.InputBox("Select Range", WorkRng.Address, Type:=8)
    FirstRow = WorkRng.Row
    lngRows = WorkRng.Rows.Count
    lngCols = WorkRng.Columns.Count
    WorkRng.Cells(lngRows, 1).Resize(1, lngCols).Select

    Do Until Selection.Row = FirstRow
        Selection.Insert shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
        Selection.Offset(-1, 0).Select
    Loop
End Sub

ここで例を参照してください