Excel - A melhor maneira de inserir dados de células programaticamente

Question

Minha planilha tem o seguinte formato:

(empty)
(empty)
(empty)
(empty)
(empty)
(data)
(empty)
(empty)
(data)
(empty)
(empty)
(empty)
(data)

Qual é a melhor maneira de inserir dados nas células vazias dos dados imediatamente abaixo dela?

Por exemplo:

(empty)
(empty)
(empty)
(empty)
(data1)
(empty)
(empty)
(data2)

Torna-se:

(data1)
(data1)
(data1)
(data1)
(data1)
(data2)
(data2)
(data2)

    

Answer 1

Supondo que seus dados estão na coluna A e a coluna B está vazia, você pode preencher a coluna B com esta fórmula:

(A linha número 1 corresponde à linha da célula na qual você está colocando esta fórmula.)

=IF(A1="",B2,A1)

O que isto faz é olhar para a célula na linha atual. Se esse valor estiver em branco, puxe os dados da célula abaixo. A célula abaixo, usando a mesma pesquisa, será preenchida com algo que irá, então, passar a coluna para todas as células.

Depois de preencher sua coluna B com isso, você pode copiar / colar valores nos campos originais da coluna A.

    

Answer 2

Encha de baixo, por exemplo, coluna D :

Sub FillUp()
    Dim N As Long, L As Long
    N = Cells(Rows.Count, "D").End(xlUp).Row
    For L = N - 1 To 1 Step -1
        If Cells(L, "D").Value = "" Then
            Cells(L, "D").Value = Cells(L + 1, "D").Value
        End If
    Next L
End Sub