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

在此处查看示例