Ir para o conteúdo principal

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


seta azul bolha direita 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:



seta azul bolha direita 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:



Artigos relativos:

Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations