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

у меня там такой же стол

введите здесь описание изображения

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

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


excel vba blank-line
person Do Huynh Anh Quan    schedule 17.06.2015    source источник
comment
У меня есть вопрос. Когда вы хотите автоматически добавить строку? Например, нажмите кнопку, измените значение в первом столбце или другом.   -  person Monkawee Maneewalaya    schedule 17.06.2015
comment
У меня есть лист, и я хочу, чтобы он автоматически вставлялся один раз - когда я нажимаю кнопку.   -  person Do Huynh Anh Quan    schedule 17.06.2015

Ответы (2)


arrow_upward
0
arrow_downward

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

person Monkawee Maneewalaya    schedule 17.06.2015
comment
Можно подробнее как делать? - person Do Huynh Anh Quan; 17.06.2015

arrow_upward
0
arrow_downward

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

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

См. примеры здесь

person 0m3r    schedule 17.06.2015
comment
Он работает, но не совсем то, что мне нужно. Он вставляет пустые строки, но не 1 строку, затем 1, 2, 3, 4 или ... строки: D - person Do Huynh Anh Quan; 18.06.2015
comment
Вот результат после запуска вашего макроса ссылка @omar - person Do Huynh Anh Quan; 18.06.2015