By Հյուր երեքշաբթի, 24 դեկտեմբերի 2019թ
Ավելացնել Excel
Գրառումներ 1
Սիրում 0
Դիտումներ 12.3K
Քվեարկել 0
Ստորակետերի տողը տողերի փոխարկելու համար VBA-ի օգտագործումը հիանալի է աշխատում, բայց հիմա ես պետք է համապատասխանեմ ընդմիջումը A սյունակի արժեքի հետ: Օրինակ
Սյունակ A-ն ունի «Ծառեր. B սյունակը ստորակետի տողն էր. Dogwood, Ash, Maple, Elm, Apple:
Ինչպես կարող եմ ցուցադրել որպես.
[font=Calibri]Ընթացիկ[/font]
[font=Calibri]Ծառերը[/font][font=Calibri]Dogwood, Ash, Maple, Elm, Apple[/font]
[font=Calibri]Կարիք[/font]
[font=Calibri]Ծառերը[/font][font=Calibri]Dogwood[/font]
[font=Calibri]Ծառերը[/font][font=Calibri]մոխիր[/font]
[font=Calibri]Ծառերը[/font][font=Calibri]Թխկի[/font]
[font=Calibri]Ծառերը[/font][font=Calibri]կնձնի[/font]
[font=Calibri]Ծառերը[/font][font=Calibri]Apple [/font]
Շնորհակալություն
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
Ես չեմ արել վերնագրերը կամ ճիշտ չեմ զբաղվել ելքային թերթիկի հետ, բայց դուք կարող եք հիմնականում տեսնել, թե ինչ է կատարվում:
·
3 տարի առաջ
·
0 Սիրում
·
0 քվե
·
0 Comments
·
Դիտել ամբողջական գրառումը