Jak sloučit všechny ostatní řádky / buňky v aplikaci Excel?

Pokud máte seznam dat a chcete zkombinovat všechny jejich další řádky nebo buňky, jak je uvedeno níže, víte, jak to udělat? V aplikaci Excel můžete použít vzorec nebo VBA ke sloučení všech ostatních řádků nebo buněk.

Sloučit všechny ostatní řádky / buňky se vzorcem v aplikaci Excel

Sloučit všechny ostatní řádky / buňky s VBA

Sloučit všechny ostatní řádky / buňky se vzorcem v aplikaci Excel

Vyberte prázdnou buňku a zadejte =OFFSET(A$1,(ROW()-1)*2,0)&" "&OFFSET(A$1,((ROW()-1)*2)+1,0) (A $ 1 označuje první data ve vašem seznamu, můžete je podle potřeby změnit) a stiskněte klávesu Enter. Poté přetažením úchytu vyplňte rozsah, který potřebujete k použití tohoto vzorce. Viz screenshot:

Sloučit všechny ostatní řádky / buňky s VBA

Pokud jste zvyklí používat VBA, můžete také spustit níže uvedený VBA ke sloučení všech ostatních řádků.

1. Držet ALT a stiskněte tlačítko F11 na klávesnici otevřete a Microsoft Visual Basic pro aplikaci okno.

2. cvaknutí Vložit > Modula zkopírujte VBA do modulu.

VBA: Sloučit všechny ostatní řádky / buňky

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. cvaknutí Běh spustit kód VBA a Kutools pro Excel Zobrazí se dialogové okno pro výběr rozsahu buněk, které chcete sloučit do všech ostatních řádků. Viz screenshot:

4. cvaknutí OK, zobrazí se další dialogové okno, kde můžete vybrat jednu buňku k uhrazení sloučeného výsledku. Viz screenshot:

5. cvaknutí OKa můžete vidět výsledek:

Relativní články:

• Vyberte každý druhý nebo n-tý řádek v aplikaci Excel
• Zkopírujte každý druhý řádek
• Smažte každý druhý řádek