Как автоматическая вставка пустых строк зависит от 1 столбца?

Question

У меня там же стол

и я хочу, чтобы автоматическая вставка пустых строк зависела от ячейки в первом столбце,

Кто-нибудь может мне помочь? Я перепробовал много методов, но ни один из них не подходит именно мне. Извините за мой английский.

Answer 1

Создать кнопку и назначить следующий макрос

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

Смотрите примеры здесь

Answer 2

Вы можете добавить 1 индексный столбец в качестве первичного ключа. Затем вставьте только индексный столбец и ваш PK со всеми пустыми полями.