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: