Como expandir todas as linhas a serem seguidas por uma nova linha em branco?

Question

A técnica direta é

1. realce todos, exceto a linha superior.
2. recortar
3. cole na próxima linha.

No entanto, é necessário repetir as etapas de 1 a 3 para as N linhas.

Existe uma maneira rápida de adicionar uma linha em branco para seguir cada linha existente?

    

Answer 1

Acabei de criar uma macro

Sub AddBlankRows()
    Dim rng As Range
    Set rng = Selection
    Set CurrentSheet = ActiveWorkbook.ActiveSheet

    firstSelRow = rng.Rows(1).Row
    totalSelRows = rng.Rows.Count

    For idx = 1 To totalSelRows Step 1
        curRow = (idx - 1) * 2 + firstSelRow
        Cells(curRow, 1).EntireRow.Insert
    Next idx
End Sub

    

Answer 2

Dependendo do número de linhas que você tem, aqui está um processo mais avançado:

1. selecione a segunda linha
2. pressione e segure CTRL
3. Selecione a próxima linha (clicando em seu número à esquerda)
4. repita a etapa 3 conforme necessário
5. libere CTRL
6. clique com o botão direito no "cabeçalho" esquerdo (onde você vê os números das linhas) e selecione "Inserir".