Jos sinulla on vaatimus yhdistää useita sarakkeita sarakkeeseen ja sinulla ei ollut aavistustakaan, tämä koko artikkeli on sinua varten. Tässä artikkelissa aiomme oppia yhdistämään useita sarakkeita yhteen sarakkeeseen vba -koodin avulla.
Alla olevasta tilannekuvasta:-
Seuraavassa on tilannekuva vaaditusta tulostuksesta:-
Meidän on noudatettava seuraavia vaiheita:
- Napsauta Kehittäjä -välilehteä
- Valitse koodiryhmästä Visual Basic
Syötä seuraava koodi vakiomoduuliin
Sub MultipleColumns2SingleColumn ()
Const shName1 As String = "Sheet1" 'Muuta taulukon nimi tästä
Const shName2 As String = "Sheet2"
Dim arr, arrNames
Laskentataulukoiden kanssa (shName1)
arrNames = .Range ("F1", .Cells (1, Columns.Count) .End (xlToLeft))
Sillä i = 2 solulle. (Rivid.Count, 1). End (xlUp).
arr = .Solut (i, 1) .Koko (, 4)
Laskentataulukoiden kanssa (shName2)
Kun .Cells (Rows.Count, 1). End (xlUp)
.Offset (1) .Resize (UBound (arrNames, 2), 4) = arr
.Offset (1, 5) .Resize (UBound (arrNames, 2)) = Application.Transpose (arrNames)
Lopeta
Lopeta
Seuraava
Lopeta
End Sub
Kun suoritat makron; makro siirtää tiedot useista sarakkeista yhteen sarakkeeseen.
Tällä tavalla voimme yhdistää useita sarakkeiden tietoja yhteen sarakkeeseen.
