Copiando dados de uma coluna inteira na planilha do Excel para outra planilha menos células em branco

Question

Em vez de usar a função normal de copiar e colar, existe uma maneira de pesquisar dados em uma coluna inteira (em vez de uma célula individual) em uma planilha e colocá-la em outra - menos as células em branco? / p>     

Answer 1

Esta é outra maneira sem macros ou VBA:

1. Selecione a coluna
2. Ir para a página inicial - > Encontre & Selecione - > Vá para especial
3. Escolha constantes & OK
4. Agora, apenas as células com um valor são selecionadas.
5. Copiar & Colar. Está feito !!!!

Answer 2

Esta pequena macro copia a coluna A de Folha1 para a coluna A de Folha2 omitindo os espaços em branco. Ajuste o código das suas próprias colunas e nomes de folhas:

Sub CopyNoBanks()
    Dim sh1 As Worksheet, s2 As Worksheet, i As Long
    Dim j As Long, N As Long, r1 As Range

    Set sh1 = Sheets("Sheet1")
    Set sh2 = Sheets("Sheet2")
    N = sh1.Cells(Rows.Count, "A").End(xlUp).Row
    j = 1

    For i = 1 To N
        Set r1 = sh1.Cells(i, "A")
        If r1.Value <> "" Then
            r1.Copy sh2.Cells(j, "A")
            j = j + 1
        End If
    Next i
End Sub

As macros são muito fáceis de instalar e usar:

1. ALT-F11 exibe a janela do VBE
2. ALT-I ALT-M abre um novo módulo
3. cole o material e feche a janela do VBE

Se você salvar a pasta de trabalho, a macro será salva com ela. Se você estiver usando uma versão do Excel posterior a 2003, deverá salvar o arquivo como .xlsm em vez de .xlsx

Para remover a macro:

1. abrir a janela do VBE como acima
2. limpe o código
3. feche a janela do VBE

Para usar a macro do Excel:

1. ALT-F8
2. Selecione a macro
3. Toque em EXECUTAR

Para saber mais sobre macros em geral, consulte:

link

e

link

As macros devem estar ativadas para que isso funcione!