Как добавить новую строку в Excel * ниже * текущей?

Question

Команда « Вставка»> «Вставить строки листа» в Excel всегда вставляет строку выше текущей строки. Тем не менее, это довольно распространенный сценарий для меня, чтобы вставить строку ниже текущей строки, например так:

Важной деталью является то, что граница была сдвинута вниз и формула была обновлена, чтобы включить 3 ячейки вместо исходных двух. Когда я делаю это наивно, помещая курсор на итоговую строку и добавляя туда строку, я получаю это:

Граница и формула здесь "нарушены", и мне нужно исправить их вручную. Какие у меня варианты?

Примечание: "таблица" (Ctrl+T) поможет в этом, но в моем случае мне нужно универсальное решение, которое не зависит от того, являются ли строки частью таблицы.

Answer 1

Если вы поместите курсор на строку, которую хотите вставить ниже, это сделает это и скопирует формат этой строки:

Sub InsertRowBelow()

    Application.ScreenUpdating = False

    ActiveCell.Offset(1, 0).EntireRow.Insert
    ActiveCell.EntireRow.Copy
    ActiveCell.Offset(1, 0).Select
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False

    Application.ScreenUpdating = True

End Sub