V prípade, že máte požiadavku na kombinovanie viacerých stĺpcov do stĺpca a vy ste nemali tušenie, potom je tento celý článok pre vás. V tomto článku sa naučíme kombinovať viac stĺpcov do jedného stĺpca pomocou kódu vba.
Snímka zospodu:-
Nasleduje prehľad požadovaného výstupu:-
Musíme postupovať podľa nasledujúcich krokov:
- Kliknite na kartu Vývojár
- Zo skupiny kódov vyberte Visual Basic
Do štandardného modulu zadajte nasledujúci kód
Sub MultipleColumns2SingleColumn ()
Const shName1 As String = "Sheet1" 'Tu zmeňte názov hárka
Const shName2 As String = "Sheet2"
Dim arr, arrNames
S pracovnými listami (shName1)
arrNames = .Range ("F1", .Cells (1, Columns.Count) .End (xlToLeft))
Pre i = 2 až .Bunky (riadky.počet, 1). Koniec (xlUp). Riadok
arr =. Bunky (i, 1). Zmeniť veľkosť (, 4)
S pracovnými listami (shName2)
S .Cells (Rows.Count, 1). End (xlUp)
.Offset (1) .Resize (UBound (arrNames, 2), 4) = arr
.Offset (1, 5). Zmena veľkosti (UBound (arrNames, 2)) = Application.Transpose (arrNames)
Ukončiť s
Ukončiť s
Ďalšie
Ukončiť s
Koniec pod
Pri spustení makra; makro prenesie údaje z viacerých stĺpcov do jedného stĺpca.
Týmto spôsobom môžeme kombinovať údaje z viacerých stĺpcov do jedného stĺpca.
