Resumo
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 seus dados. Este artigo contém um exemplo de macro (Sub-procedimento) do Microsoft Visual Basic for Applications (VBA) para o fazer.
Mais Informações
A Microsoft fornece exemplos de programação apenas para ilustração, sem garantia expressa ou implícita. Isto inclui, mas não se limita a, as garantias implícitas de comercialização ou adequação para 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. Os engenheiros de suporte da Microsoft podem ajudar a explicar a funcionalidade de um procedimento específico. No entanto, não modificarão estes exemplos para fornecer funcionalidades adicionais ou procedimentos de construção para satisfazer os seus requisitos específicos.
Macro de Visual Basic for Applications de exemplo (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 instrução ActiveCell.Offset(0, 1). FormulaR1C1 pode ser substituído pela instrução ActiveCell.Offset(0, 1). Fórmula. Podem ser utilizadas com igual êxito se estiver a utilizar apenas texto e números (não fórmulas). O R1C1 utilizado no final da primeira instrução refere-se à linha um, coluna um e é o formulário utilizado em exemplos na Ajuda.
Como utilizar a macro no Microsoft Office Excel 2007
-
Abra o livro que contém os dados.
-
Prima ALT+F11 para iniciar o Visual Basic Editor.
-
No menu Inserir , clique em Módulo para inserir um módulo. Escreva a macro na janela de código do módulo.
-
No menu Ficheiro , clique em Fechar e Regressar ao Microsoft Excel.
-
Selecione a folha de cálculo que contém os dados que pretende concatenar.
-
Clique na célula superior na coluna direita dos dados que pretende concatenar. Por exemplo, se as células A1:A100 e B1:B100 contiverem dados, clique na célula B1.
-
Clique no separador Programador . Se o separador Programador não for apresentado, siga estes passos:
-
Clique no Botão do Microsoft Office e, em seguida, clique em Opções do Excel.
-
Clique em Popular.
-
Clique para selecionar a caixa de verificação Mostrar separador Programador no Friso .
-
Clique em OK para fechar a caixa de diálogo Opções do Excel .
-
-
Clique em Macros no grupo Código .
-
Selecione a macro ConcatColumns e, em seguida, clique em Executar.
Como utilizar a macro no Microsoft Office Excel 2003 e em versões anteriores do Excel
-
Abra o livro que contém os dados.
-
Prima ALT+F11 para iniciar o Visual Basic Editor.
-
No menu Inserir , clique em Módulo para inserir um módulo. Escreva a macro na janela de código do módulo.
-
No menu Ficheiro , clique em Fechar e Regressar ao Microsoft Excel.
-
Selecione a folha de cálculo que contém os dados que pretende concatenar.
-
Clique na célula superior na coluna direita dos dados que pretende concatenar. Por exemplo, se as células A1:A100 e B1:B100 contiverem dados, clique na célula B1.
-
No menu Ferramentas , aponte para Macros e, em seguida, clique em Macro. Selecione a macro ConcatColumns e, em seguida, clique em Executar.
