Kā apvienot vairākas kolonnas vienā kolonnā, izmantojot Microsoft Excel VBA

Anonim

Ja jums ir prasība apvienot vairākas kolonnas ar kolonnu un jums nebija ne jausmas, viss šis raksts ir domāts jums. Šajā rakstā mēs uzzināsim, kā apvienot vairākas kolonnas vienā kolonnā, izmantojot vba kodu.

No momentuzņēmuma:-

Tālāk ir sniegta nepieciešamā izvades momentuzņēmums:-

Mums jāveic šādas darbības:

  • Noklikšķiniet uz cilnes Izstrādātājs
  • Kodu grupā atlasiet Visual Basic

Standarta modulī ievadiet šādu kodu

Sub MultipleColumns2SingleColumn ()

Const shName1 As String = "Sheet1" 'Šeit mainiet lapas nosaukumu

Const shName2 As String = "Sheet2"

Dim arr, arrNames

Ar darblapām (shName1)

arrNames = .Range ("F1", .Cells (1, Columns.Count) .End (xlToLeft))

I = 2 uz. Šūnām (Rows.Count, 1). End (xlUp). Rinda

arr =. Šūnas (i, 1). Izmērs (, 4)

Ar darblapām (shName2)

Ar .Cells (Rows.Count, 1). End (xlUp)

. Offset (1). Izmērs (UBound (arrNames, 2), 4) = arr

. Offset (1, 5). Izmērs (UBound (arrNames, 2)) = Lietojumprogramma. Transponēt (arrNames)

Beigt ar

Beigt ar

Nākamais

Beigt ar

Beigt apakš

Izpildot makro; makro pārsūtīs datus no vairākām kolonnām uz vienu kolonnu.

Tādā veidā mēs varam apvienot vairāku kolonnu datus vienā kolonnā.