Como concatenar textos de várias células em uma caixa de texto no Excel?
Pode ser fácil para você concatenar textos de várias células em uma nova célula com fórmula. Mas você sabe como concatenar vários valores de células em uma caixa de texto (controle ActiveX)? Na verdade, o método neste artigo pode ajudá-lo a alcançá-lo.
Concatene textos de várias células em uma caixa de texto com código VBA
Concatene textos de várias células em uma caixa de texto com código VBA
O método a seguir pode ajudá-lo a concatenar textos de várias células em uma caixa de texto no Excel.
1. Na planilha que você deseja concatenar várias células, insira uma caixa de texto clicando em Developer > inserção > Caixa de texto (controle ActiveX). Veja a imagem:
2. Então clique Developer > inserção > Botão de comando (controle ActiveX) para inserir um botão de comando na planilha.
3. Clique com o botão direito do mouse no botão de comando inserido e selecione Ver código no menu de contexto. Veja a imagem:
4. No Microsoft Visual Basic para Aplicações janela, substitua o código original com o código VBA abaixo.
Código VBA: concatene textos de várias células em uma caixa de texto
Private Sub CommandButton1_Click()
Dim xRg As Range
Dim xCell As Range
Dim xStr As String
On Error Resume Next
Set xRg = Application.Selection
If xRg Is Nothing Then Exit Sub
With Me.TextBox1
.Text = vbNullString
.MultiLine = True
.WordWrap = True
For Each xCell In xRg
xStr = xCell.Value
.Text = Me.TextBox1 & xStr & Chr(10)
Next
End With
End Sub
Note: CommandButton1 é o nome do botão de comando inserido. Por favor, mude de acordo com sua necessidade.
5. Desative o modo de design clicando em Developer > Modo de design.
6. Selecione as células de que você precisa para concatenar os textos em uma caixa de texto e clique no Botão de Comando. E então o conteúdo de todas as células selecionadas é concatenado na caixa de texto imediatamente, como mostrado na imagem abaixo.
Artigos relacionados:
- Como selecionar automaticamente o texto de uma caixa de texto quando ela é selecionada no Excel?
- Como autocompletar uma caixa de texto ao digitar no Excel?
- Como limpar o conteúdo da caixa de texto quando clicado no Excel?
- Como desabilitar a edição na caixa de texto para evitar a entrada do usuário no Excel?
- HComo formatar uma caixa de texto como uma porcentagem no Excel?
Melhores ferramentas de produtividade de escritório
Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
Office Tab traz interface com guias para o Office e torna seu trabalho muito mais fácil
- Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
- Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!