Como concatenar valores de células até encontrar uma célula em branco em uma coluna?
Por exemplo, eu tenho uma lista de valores que inclui algumas células em branco e, agora, quero concatenar cada conjunto de dados entre os espaços em branco em uma célula e listar os valores combinados em outra coluna, como mostrado a seguir na captura de tela. Como concatenar células até encontrar uma célula em branco em uma coluna?
Concatene os valores das células até encontrar uma célula em branco em uma coluna com o código VBA
Concatene os valores das células até encontrar uma célula em branco em uma coluna com o código VBA
Não há uma maneira direta de concatenar um conjunto de células entre espaços em branco, mas você pode aplicar o seguinte código VBA para lidar com isso. Faça o seguinte:
1. Segure o ALT + F11 chaves para abrir o Janela Microsoft Visual Basic for Applications.
2. Clique inserção > Móduloe cole o seguinte código no Janela Módulo.
Código VBA: concatene os valores das células até encontrar uma célula em branco
Sub Concatenatecells()
'updateby Extendoffice
Dim xRg As Range
Dim xSaveToRg As Range
Dim xTxt As String
Dim xCell As Range
Dim xTStr As String
On Error Resume Next
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please selecte the data range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
If xRg.Columns.Count > 1 Then
MsgBox "the selected range is more than one column", vbInformation, "Kutools for Ecel"
Exit Sub
End If
Set xSaveToRg = Application.InputBox("Please selecte output cell:", "Kutools for Excel", , , , , , 8)
If xSaveToRg Is Nothing Then Exit Sub
Set xSaveToRg = xSaveToRg.Cells(1)
Application.ScreenUpdating = False
For Each xCell In xRg
If xCell <> "" Then
xTStr = xTStr & xCell & " "
Else
xSaveToRg.Value = xTStr
Set xSaveToRg = xSaveToRg.Offset(1)
xTStr = ""
End If
Next
If xTStr <> "" Then xSaveToRg.Value = Left(xTStr, Len(xTStr) - 1)
Application.ScreenUpdating = True
End Sub
3. Então aperte F5 para executar esse código e uma caixa de prompt é exibida para lembrá-lo de selecionar o intervalo de dados que deseja concatenar, consulte a captura de tela:
4. Então clique OK, e outra caixa de prompt for exibida, selecione uma célula para gerar o resultado concatenado, consulte a captura de tela:
5. E, em seguida, clique em OK botão, e os dados da lista de colunas são concatenados entre os espaços em branco, consulte a captura de tela:
Concatene os valores das células até encontrar uma célula em branco em uma coluna com Kutools for Excel
Se você tem Kutools for Excel, combinando seu Faixa de transformação e Combinar recursos, você também pode terminar este trabalho o mais rápido possível. o Faixa de transformação utilitário pode ajudá-lo a converter uma única coluna em um intervalo, e o Combinar recurso pode ajudá-lo a concatenar o intervalo transformado em uma coluna.
| Kutools for Excel : com mais de 300 suplementos úteis do Excel, grátis para testar sem limitação em 30 dias. |
Depois de instalar Kutools for Excel, faça o seguinte:
1. Selecione as células que deseja concatenar e clique em Kutools > Variação > Faixa de transformação, veja a captura de tela:
2. No Faixa de transformação caixa de diálogo, verifique Coluna única para intervalo opção sob o Tipo de transformaçãoE, em seguida, selecione Célula em branco delimita registros sob a Linhas por registro, veja a captura de tela:
3. Então clique Ok, e uma caixa de prompt aparecerá para lembrá-lo de selecionar uma célula para gerar o resultado, veja a captura de tela:
4. Clique OK, e os dados de uma única coluna foram convertidos em várias linhas e colunas pela célula em branco, consulte a captura de tela:
5. Os dados convertidos estão em várias colunas, então você precisa combiná-los em uma coluna, selecione o intervalo de dados e clique Kutools > Unir e dividir > Combine linhas, colunas ou células sem perder dados, veja a captura de tela:
6. No Combine Colunas ou Linhas caixa de diálogo, escolha as seguintes opções:
(1.) Selecione Combine colunas opção do Para combinar células selecionadas de acordo com as seguintes opções;
(2.) Em seguida, especifique um separador que deseja separar os valores concatenados;
(3.) Selecione como você deseja lidar com as células combinadas. Você pode manter ou excluir os dados originais e também mesclar as células combinadas. Veja a imagem:
7. Depois de terminar as configurações, clique Ok or Inscreva-se botão, as células foram concatenadas em uma coluna com um separador específico, veja a captura de tela:
Baixe e teste grátis Kutools for Excel Agora !
Melhores ferramentas de produtividade de escritório
Aprimore suas habilidades de Excel com Kutools for Excele experimente eficiência como nunca antes. Kutools for 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 a 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!
