Jei turite reikalavimą sujungti kelis stulpelius su stulpeliu ir neturėjote supratimo, visas šis straipsnis skirtas jums. Šiame straipsnyje mes sužinosime, kaip sujungti kelis stulpelius į vieną stulpelį naudojant vba kodą.
Iš žemiau pateiktos nuotraukos:-
Toliau pateikiamas būtinos išvesties momentinis vaizdas:-
Turime atlikti šiuos veiksmus:
- Spustelėkite skirtuką Kūrėjas
- Iš kodų grupės pasirinkite „Visual Basic“
Į standartinį modulį įveskite šį kodą
Sub MultipleColumns2SingleColumn ()
Const shName1 As String = "Sheet1" 'Čia pakeiskite lapo pavadinimą
Const shName2 As String = "Sheet2"
Dim arr, arrNames
Su darbalapiais (shName1)
arrNames = .Range ("F1", .Cells (1, Columns.Count) .End (xlToLeft))
I = 2 į .Ląstelės (Eilutės.Skaičius, 1). Pabaiga (xlUp).
arr = .Ląstelės (i, 1). Dydis (, 4)
Su darbalapiais (shName2)
Su .Cells (Rows.Count, 1). End (xlUp)
.Offset (1). Keisti dydį (UBound (arrNames, 2), 4) = arr
.Offset (1, 5). Keisti dydį (UBound (arrNames, 2)) = Taikymas. Perkelti (arrNames)
Pabaiga su
Pabaiga su
Kitas
Pabaiga su
Pabaiga Sub
Vykdydami makrokomandą; makrokomanda perkelia duomenis iš kelių stulpelių į vieną stulpelį.
Tokiu būdu mes galime sujungti kelių stulpelių duomenis viename stulpelyje.
