Public Sub textToColumns()
Սահմանել ARange = Range («A:A»)
Սահմանել BRange = Range («B:B»)
Սահմանել CRange = Range («C:C»)
Սահմանել DRange = Range («D:D»)
Dim arr() Որպես տող
lr = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlՆախորդ).Տող
Սահմանել = Worksheets.Add
out.Name = «դուրս»
Արտաքին տող = 2
For i = 2 To lr
arr = Պառակտում (ARange (i), ",")
j = 0-ի համար դեպի UBound(arr)
out.Cells(outRow, 1) = Trim(arr(j))
out.Cells(outRow, 2) = BRange(i)
out.Cells(outRow, 3) = CRange(i)
out.Cells(outRow, 4) = DRange(i)
OutRow = OutRow + 1
Հաջորդը j
Հաջորդ i
Վերջ Sub
Ես չեմ արել վերնագրերը կամ ճիշտ չեմ զբաղվել ելքային թերթիկի հետ, բայց դուք կարող եք հիմնականում տեսնել, թե ինչ է կատարվում: