Como mesclar todas as outras linhas / células no Excel?
Se você tem uma lista de dados e deseja combinar todas as outras linhas ou células deles, conforme mostrado a seguir, você sabe como fazer isso? No Excel, você pode usar fórmula ou VBA para mesclar todas as outras linhas ou células.
Mesclar todas as outras linhas / células com a fórmula no Excel
Mesclar todas as outras linhas / células com VBA
- Reutilizar qualquer coisa: Adicione as fórmulas, gráficos e tudo mais usados ou complexos aos seus favoritos e reutilize-os rapidamente no futuro.
- Mais de 20 recursos de texto: Extrair número da string de texto; Extraia ou remova parte dos textos; Converta números e moedas para palavras em inglês.
- Ferramentas de mesclagem: Várias pastas de trabalho e planilhas em um; Mesclar várias células / linhas / colunas sem perder dados; Mesclar linhas duplicadas e soma.
- Ferramentas de divisão: Divida os dados em várias folhas com base no valor; Uma pasta de trabalho para vários arquivos do Excel, PDF ou CSV; Uma coluna para várias colunas.
- Colar Ignorando Linhas ocultas / filtradas; Contagem e soma por cor de fundo; Envie emails personalizados para vários destinatários em massa.
- Super Filtro: Crie esquemas de filtro avançados e aplique a qualquer planilha; tipo por semana, dia, frequência e muito mais; filtros por negrito, fórmulas, comentário ...
- Mais de 300 recursos poderosos; Funciona com Office 2007-2021 e 365; Suporta todos os idiomas; Fácil implantação em sua empresa ou organização.
Mesclar todas as outras linhas / células com a fórmula no Excel
Selecione uma célula em branco e digite =OFFSET(A$1,(ROW()-1)*2,0)&" "&OFFSET(A$1,((ROW()-1)*2)+1,0) (A $ 1 indica os primeiros dados em sua lista, você pode alterá-los conforme necessário) e pressione a tecla Enter. Em seguida, arraste a alça de preenchimento para preencher o intervalo necessário para aplicar esta fórmula. Veja a imagem:
Mesclar todas as outras linhas / células com VBA
Se você está acostumado a usar o VBA, também pode executar o VBA abaixo para mesclar linhas alternadas.
1. Segure ALT pressione e pressione F11 no teclado para abrir um Microsoft Visual Basic para aplicativos janela.
2. Clique inserção > Móduloe copie o VBA para o módulo.
VBA: mesclar todas as outras linhas / células
Sub CombineCells()
'Updateby20140314
Dim rng As Range
Dim InputRng As Range, OutRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)
For i = 1 To InputRng.Rows.Count Step 2
For j = 1 To InputRng.Columns.Count
OutRng.Value = InputRng.Cells(i, j).Value & InputRng.Cells(i + 1, j).Value
Set OutRng = OutRng.Offset(0, 1)
Next
Set OutRng = OutRng.Offset(1, (InputRng.Columns.Count * -1))
Next
End Sub
3. Clique Opere para executar o código VBA, e um KutoolsforExcel A caixa de diálogo aparece para você selecionar um intervalo de células que deseja mesclar com as outras linhas. Veja a imagem:
4. Clique OK, outra caixa de diálogo é exibida para você selecionar uma única célula para obter o resultado mesclado. Veja a imagem:
5. Clique OK, e você pode ver o resultado:
