Como copiar uma coluna com base no valor de uma célula para outra folha?

Ao trabalhar com dados distribuídos por colunas cujos cabeçalhos são datas, é comum precisar extrair uma coluna inteira de uma folha de cálculo e copiá-la para outra folha — mas apenas para a coluna cujo cabeçalho corresponda a uma data específica introduzida noutro local do seu livro. Por exemplo, imagine que tem uma tabela na Folha1, onde cada cabeçalho de coluna é uma data diferente, e que introduz uma data-alvo em Folha2!A1. Pretende copiar automaticamente — ou de forma simples — toda a coluna da Folha1 cujo cabeçalho corresponda à data em Folha2!A1 e colá-la na Folha3, conforme ilustrado abaixo. Trata-se de um desafio típico ao comparar métricas diárias, gerir agendas ou extrair dados específicos de determinado período para relatórios.

---

Copiar coluna para outra folha com base no valor de uma célula utilizando fórmula

As funções ÍNDICE e CORRESP do Excel oferecem uma forma eficiente de obter uma coluna inteira de uma folha de origem com base num valor específico de cabeçalho referenciado noutra folha. Este método é especialmente útil quando os dados precisam de ser atualizados automaticamente à medida que o valor da célula muda, eliminando ajustes manuais ou operações repetitivas de copiar e colar.

1. Selecione a célula na folha de destino onde pretende colar os valores da coluna. Por exemplo, clique em Folha3!A1. Em seguida, introduza a seguinte fórmula:

=INDEX(Sheet1!$A1:$E1,MATCH(Sheet2!$A$1,Sheet1!$A$1:$E$1,0))

Prima Enterpara aplicar a fórmula e, em seguida, arraste a alça de preenchimento para baixo até onde for necessário (geralmente pelas linhas correspondentes à Intervalo de Dados em)Folha1). Irá notar que podem surgir zeros no ponto em que o Intervalo de Dados termina.

2. Elimine ou filtre, conforme necessário, as células com resultados a zero para limpar a coluna extraída.

Nota: Nesta fórmula, Folha2!A1 é a célula que contém a data a procurar, enquanto Folha1!A1:E1 é o intervalo de cabeçalhos a verificar. Ajuste estas referências de acordo com a disposição real dos seus dados e o tamanho do intervalo. Se a sua tabela de dados for maior, alargue o intervalo em conformidade. Além disso, se os seus dados contiverem células vazias, poderá obter zeros no resultado; por isso, considere aplicar filtros ou utilizar a função SEERRO para obter resultados mais limpos.

---

Código VBA – Copiar automaticamente uma coluna para outra folha com base no valor de uma célula

Se realizar frequentemente esta tarefa de extração de colunas ou preferir uma solução que não exija configurar fórmulas nem executar operações manuais sempre que a data-alvo mudar, pode utilizar uma macro VBA simples. Este script identificará, na Folha1, a coluna cujo cabeçalho corresponda à data em Folha2!A1 e copiará toda a coluna diretamente para a Folha3. Este método é ideal para automatizar fluxos de trabalho repetitivos ou lidar com estruturas de dados dinâmicas.

Precauções: Certifique-se sempre de que guardou o seu trabalho antes de executar macros. As macros não podem ser anuladas, e referências incorretas podem copiar dados para locais não pretendidos.

1. Prima Alt + F11 para abrir o editor do Visual Basic para Aplicações. Na janela do VBA, clique em Inserir > Módulo e, de seguida, cole o seguinte código no módulo em branco:

Sub CopyColumnByDate()
    Dim wsSource As Worksheet
    Dim wsDest As Worksheet
    Dim lookupSheet As Worksheet
    Dim matchDate As Variant
    Dim lastRow As Long
    Dim colNum As Long
    Dim headerRange As Range
    Dim cell As Range
    
    On Error Resume Next
    xTitleId = "KutoolsforExcel"
    
    Set wsSource = Worksheets("Sheet1")
    Set wsDest = Worksheets("Sheet3")
    Set lookupSheet = Worksheets("Sheet2")
    matchDate = lookupSheet.Range("A1").Value
    
    Set headerRange = wsSource.Range(wsSource.Cells(1, 1), wsSource.Cells(1, wsSource.Cells(1, wsSource.Columns.Count).End(xlToLeft).Column))
    colNum = 0
    
    For Each cell In headerRange
        If cell.Value = matchDate Then
            colNum = cell.Column
            Exit For
        End If
    Next cell
    
    If colNum > 0 Then
        lastRow = wsSource.Cells(wsSource.Rows.Count, colNum).End(xlUp).Row
        wsDest.Range("A1").Resize(lastRow, 1).Value = wsSource.Range(wsSource.Cells(1, colNum), wsSource.Cells(lastRow, colNum)).Value
        MsgBox "Data copied to Sheet3 column A!", vbInformation, "KutoolsforExcel"
    Else
        MsgBox "No matching header found.", vbExclamation, "KutoolsforExcel"
    End If
End Sub

2. Feche o editor do VBA. No Excel, prima Alt + F8, selecione CopiarColunaPorData e clique em Executar. Os seus dados da coluna correspondente à data na Folha1 serão copiados para a coluna A da Folha3.

Dica: Se os seus cabeçalhos começarem numa linha diferente da linha 1, ajuste as referências de linha no código. Se pretender colar os dados numa coluna inicial diferente, altere Range("A1") em conformidade. E se utilizar frequentemente a mesma macro, atribua-a a um botão para facilitar o acesso!

Erros possíveis:Se receber a mensagem «Não foi encontrado nenhum cabeçalho correspondente», verifique se a data em Folha2!A1 corresponde exatamente ao formato de data na linha de cabeçalhos da Folha1.

---

Outros métodos incorporados no Excel – Utilizar o Filtro para isolar e copiar uma coluna

A funcionalidade incorporada do Excel Filtro também pode ajudar a isolar e copiar uma coluna quando não quiser utilizar fórmulas ou macros. Este método manual é ideal para tarefas ocasionais pontuais ou para utilizadores que não se sintam à vontade com funções ou scripts.

1. Aceda à Folha1 e selecione a linha de cabeçalhos (por exemplo, a linha 1). Clique em Dados > Filtro para adicionar menus pendentes a cada cabeçalho.

2. Clique na seta do menu pendente do filtro na linha de cabeçalhos e desmarque todas as colunas, exceto a que corresponde à data em Folha2!A1. Se houver muitas datas, utilize a caixa de pesquisa no menu do filtro para encontrar rapidamente o valor da data pretendido.

3. Selecione a coluna visível sob o cabeçalho correspondente e prima Ctrl + C para copiar.

4. Aceda à Folha3 e clique na célula inicial pretendida (por exemplo, A1). Em seguida, prima Ctrl + V para colar.

Notas: O método do Filtro é totalmente manual e não se atualiza automaticamente se a data em Folha2!A1 for alterada. Esta abordagem é ideal para extrações pontuais de dados e revisões rápidas, quando a automatização não é necessária.

Vantagens: Não requer fórmulas nem programação; ideal para tarefas visuais e rápidas.
Desvantagens: Exige esforço manual quando repetido frequentemente; propenso a erros se não for cuidadoso na seleção das colunas.

---