如何自动插入空白行取决于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

参见示例here