Я хочу найти способ отображения новой строки после заполнения предыдущей текстом. Это использовать в качестве инструмента цитаты.
В настоящее время у меня есть таблица с рядами задач, которые нужно выполнить, и сводная стоимость у подножия. Я хотел бы, чтобы это началось с одной пустой строки, чтобы я мог ввести запись, а затем добавил новую строку, как только я это сделал, чтобы позволить мне добавить новую запись, если это необходимо.
Я пробовал разные вещи, в том числе добавление макроса кнопки для вставки строки при нажатии, но я бы предпочел, чтобы это было автоматизировано, так как метод кнопки требует ввода строки, что может привести к ошибке. Я также пытался работать со следующим в VBA, но получаю ошибку переполнения. Я попытался исправить это, основываясь на том, что я нашел в другом месте в Интернете. Я новичок в VBA и только смутно знаю, где я иду не так с этим.
Sub AddBlankRows()
'
Dim iRow As Integer, iCol As Integer
Dim oRng As Range
Set oRng = Range("D6")
iRow = oRng.Row
iCol = oRng.Column
Do
'
If Not Cells(iRow, iCol).Text = "" Then
Cells(iRow + 1, iCol).EntireRow.Insert shift:=xlDown
iRow = iRow + 2
Else
iRow = iRow + 1
End If
'
Loop While Not Cells(iRow, iCol).Text = "Description of Work"
'
End Sub