Macro VBA para concatenar colunas de dados no Excel

Sumário

No Microsoft Excel, pode utilizar uma macro para concatenar os dados em duas colunas adjacentes e para apresentar o resultado na coluna à direita das colunas que contêm os dados. Este artigo contém uma macro de exemplo do Microsoft Visual Basic for Applications (VBA) (procedimento Sub) efectuar este procedimento.

Mais informações

A Microsoft fornece exemplos de programação apenas a título ilustrativo, sem garantia expressa ou implícita. Isto inclui, mas não está limitado a, garantias implícitas de comercialização ou adequação a um fim específico. Este artigo pressupõe que está familiarizado com a linguagem de programação que está a ser demonstrada e com as ferramentas que são utilizadas para criar e depurar procedimentos. Técnicos de suporte da Microsoft podem ajudar a explicar a funcionalidade de um determinado procedimento. No entanto, não modificarão estes exemplos para proporcionarem funcionalidades adicionais nem criarão procedimentos adaptados às necessidades específicas do utilizador.

Amostra macro Visual Basic for Applications (VBA)

Sub ConcatColumns()

Do While ActiveCell <> "" 'Loops until the active cell is blank.

'The "&" must have a space on both sides or it will be
'treated as a variable type of long integer.

ActiveCell.Offset(0, 1).FormulaR1C1 = _
ActiveCell.Offset(0, -1) & " " & ActiveCell.Offset(0, 0)

ActiveCell.Offset(1, 0).Select
Loop

End Sub

Nota: A declaração de ActiveCell.Offset (0, 1). FormulaR1C1 pode ser substituído com a instrução ActiveCell.Offset (0, 1). Fórmula. Podem ser utilizados com êxito igual se estiver a utilizar texto e números apenas (não fórmulas). L1C1 utilizadas no final da primeira declaração refere-se a linha, coluna um e é o formulário utilizado nos exemplos na ajuda.

Como utilizar a macro no Microsoft Office Excel 2007

  1. Abra o livro que contém os dados.

  2. Prima ALT + F11 para iniciar o Editor do Visual Basic.

  3. No menu Inserir , clique em módulo para inserir um módulo. Escreva a macro na janela de código do módulo.

  4. No menu ficheiro , clique em Fechar e regressar ao Microsoft Excel.

  5. Seleccione a folha de cálculo que contém os dados que pretende para concatenar.

  6. Clique na célula superior na coluna da direita dos dados que pretende para concatenar. Por exemplo, se as células a1: A100 e B1:B100 contiverem dados, clique na célula B1.

  7. Clique no separador Programador . Se não for apresentado o separador Programador , siga estes passos:

    1. Clique no Botão Microsoft Officee, em seguida, clique em Opções do Excel.

    2. Clique em mais populares.

    3. Clique para seleccionar a caixa de verificação Mostrar separador Programador no Friso .

    4. Clique em OK para fechar a caixa de diálogo Opções do Excel .

  8. No grupo código , clique em Macros .

  9. Seleccione a macro de ConcatColumns e, em seguida, clique em Executar.

Como utilizar a macro no Microsoft Office Excel 2003 e em versões anteriores do Excel

  1. Abra o livro que contém os dados.

  2. Prima ALT + F11 para iniciar o Editor do Visual Basic.

  3. No menu Inserir , clique em módulo para inserir um módulo. Escreva a macro na janela de código do módulo.

  4. No menu ficheiro , clique em Fechar e regressar ao Microsoft Excel.

  5. Seleccione a folha de cálculo que contém os dados que pretende para concatenar.

  6. Clique na célula superior na coluna da direita dos dados que pretende para concatenar. Por exemplo, se as células a1: A100 e B1:B100 contiverem dados, clique na célula B1.

  7. No menu Ferramentas , aponte para Macrose, em seguida, clique em Macro. Seleccione a macro de ConcatColumns e, em seguida, clique em Executar.

Referências

Para mais informações sobre o Visual Basic for Applications, clique no número de artigo seguinte para visualizar o artigo na Microsoft Knowledge Base:

Lista de 226118 de recursos que estão disponíveis para ajudar a aprender Visual Basic para aplicações de programação

Precisa de mais ajuda?

Aumente os seus conhecimentos
Explore as formações
Seja o primeiro a obter novas funcionalidades
Aderir ao Microsoft insiders

As informações foram úteis?

Obrigado pelos seus comentários!

×