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
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 Execute para executar o código VBA, e um Kutools para Excel 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: