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

Question

У меня есть некоторый код VBA в Excel, чтобы добавить строку, когда я нажимаю кнопку.Проблема в том, что формулы удаляются в строках, когда я нажимаю кнопку «Добавить строку».

Код такой:

Sub AddRow()
    Range("A" & Rows.Count).End(xlUp).Select
    ActiveCell.Offset(1, 0).Select
    ActiveCell.EntireRow.Insert
End Sub

Я не могу придумать, как обойти эту проблему.Я ни в коем случае не владею кодированием вообще.Я получил код из видео на YouTube, который выглядел так, как будто он поможет мне с добавлением строк.

Пример формул, которые я ввел:

=IF(ISNUMBER(SEARCH("Cuvette Packaging",$C$105:$C$419)),$B$105:$B$1276,"")

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

Answer 1

Попробуйте что-то вроде этого ...

Sub AddRow()
    Dim lngLastRow As Long, rngActiveCell As Range

    ' Rename "Sheet1" to the name of your worksheet.
    With ThisWorkbook.Worksheets("Sheet1")
        lngLastRow = .Range("A" & .Rows.Count).End(xlUp).Row

        ' Get the active cell, we'll make sure we reselect it after the copy operation completes.
        Set rngActiveCell = ActiveCell

        ' Turn screen updating off.
        Application.ScreenUpdating = False

        ' Copy and paste the last row to the row below.
        .Rows(lngLastRow).Copy
        .Rows(lngLastRow + 1).PasteSpecial

        ' Select the previously active cell.
        rngActiveCell.Select

        On Error Resume Next

        ' Clear the cells that do not contain formulas.
        .Rows(lngLastRow + 1).SpecialCells(xlCellTypeConstants).ClearContents

        On Error GoTo 0

        ' Do some clean up work.
        Application.CutCopyMode = False
        Application.ScreenUpdating = True
    End With
End Sub

Есть несколько других вещей, которые, возможно, нужно добавить, но начните с этого.

Надеюсь, это поможет.