Jak vytvořit jeden ze dvou obsahů buněk v aplikaci Excel
Excel nabízí možnost shrnout buňky. Pomocí funkce FORMÁT - BUŇKY - ALIGNMENT - KOMBINOVAT BUŇKY můžete spojit dvě buňky do jedné jednotky. Co ale dělat, když je v obou buňkách obsah, o který nechcete přijít? K vyřešení problému použijte VBA.
Příklad na následujícím obrázku ukazuje krátký seznam jmen:
Chcete zkombinovat dva obsahy ze sloupců A a B v prvním sloupci A a poté zkombinovat dvě buňky ze sloupců A a B do jedné buňky. Tuto úlohu provádí následující makro:
Sloučit dílčí buňky ()
Dim line As Integer
Řádek = 1
While Not (IsEmpty (Cells (line, 1)))
Buňky (řádek, 1) = buňky (řádek, 1) & "" & buňky (řádek, 2)
Buňky (řádek, 2). ClearContents
Rozsah (buňky (řádek, 1), buňky (řádek, 2)). Sloučit
Řádek = řádek + 1
Zamířit
Sloupce (1). AutoFit
End Sub
Makro prochází řádky od řádku 1, dokud není sloupec A prázdný. U každého neprázdného obsahu jsou obsahy A a B navzájem spojeny (odděleny mezerou). Poté jsou dvě buňky A a B spojeny do jedné buňky. Následující obrázek ukazuje výsledek:
