În cazul în care aveți o cerință privind combinarea mai multor coloane în coloană și nu ați avut niciun indiciu, atunci întregul articol este pentru dvs. În acest articol vom învăța cum să combinăm mai multe coloane într-o singură coloană folosind codul vba.
Din instantaneul de mai jos: -
Următorul este instantaneul rezultatului necesar: -
Trebuie să urmăm pașii de mai jos:
- Faceți clic pe fila Dezvoltator
- Din grupul de coduri, selectați Visual Basic
Introduceți următorul cod în modulul standard
Sub MultipleColumns2SingleColumn ()
Const shName1 As String = "Sheet1" 'Schimbați numele foii aici
Const shName2 As String = "Sheet2"
Dim arr, arrNames
Cu foi de lucru (shName1)
arrNames = .Range ("F1", .Cells (1, Columns.Count) .End (xlToLeft))
Pentru i = 2 To .Cells (Rows.Count, 1). End (xlUp) .Row
arr = .Celule (i, 1). Redimensionare (, 4)
Cu foi de lucru (shName2)
Cu .Cells (Rows.Count, 1) .End (xlUp)
.Offset (1) .Resize (UBound (arrNames, 2), 4) = arr
.Offset (1, 5) .Resize (UBound (arrNames, 2)) = Application.Transpose (arrNames)
Se termina cu
Se termina cu
Următorul
Se termina cu
Sfârșitul Sub
Pe măsură ce executați macro-ul; macro-ul va transfera datele din mai multe coloane într-o singură coloană.
În acest fel putem combina mai multe date de coloane într-o singură coloană.
