Note: The other languages of the website are Google-translated. Back to English

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

Karta Office Povolte úpravy a procházení na kartách v Office a vaše práce bude mnohem jednodušší ...
Kutools pro Excel řeší většinu vašich problémů a zvyšuje vaši produktivitu o 80%
  • Znovu použít cokoli: Přidejte do svých oblíbených nejpoužívanější nebo nejsložitější vzorce, grafy a cokoli jiného a rychle je v budoucnu znovu použijte.
  • Více než 20 textových funkcí: Extrahovat číslo z textového řetězce; Extrahovat nebo odebrat část textů; Převádějte čísla a měny na anglická slova.
  • Sloučit nástroje: Více sešitů a listů do jednoho; Sloučit více buněk / řádků / sloupců bez ztráty dat; Sloučit duplicitní řádky a součet.
  • Rozdělené nástroje: Rozdělit data do více listů na základě hodnoty; Jeden sešit pro více souborů Excel, PDF nebo CSV; Jeden sloupec na více sloupců.
  • Vložit přeskakování Skryté / filtrované řádky; Count And Sum podle barvy pozadí; Posílejte hromadně osobní e-maily více příjemcům.
  • Super filtr: Vytvořte pokročilá schémata filtrů a použijte je na jakékoli listy; Typ podle týdne, dne, frekvence a dalších; Filtr tučně, vzorce, komentovat ...
  • Více než 300 výkonných funkcí; Funguje s Office 2007-2019 a 365; Podporuje všechny jazyky; Snadné nasazení ve vašem podniku nebo organizaci.

šipka modrá pravá bublina 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:



šipka modrá pravá bublina 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:

Komentáře (0)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Zatím zde nejsou žádné komentáře
Zanechat své připomínky
Odesílání jako host
×
Ohodnoťte tento příspěvek:
0   Postavy
Doporučená umístění