At bruge VBA til at konvertere min kommastreng til rækker fungerer godt - men nu skal jeg matche bruddet med værdien i kolonne A. Eksempel
Kolonne A har "Træer: Kolonne B var kommastrengen: Kornel, Ask, Ahorn, Elm, Æble.
Hvordan viser jeg som:
Tak
Kolonne A har "Træer: Kolonne B var kommastrengen: Kornel, Ask, Ahorn, Elm, Æble.
Hvordan viser jeg som:
| [font=Calibri]Nuværende[/ Font] | |
| [font=Calibri]Træer[/ Font] | [font=Calibri]Kornel, Ask, Ahorn, Elm, Æble[/ Font] |
| [font=Calibri]Behov[/ Font] | |
| [font=Calibri]Træer[/ Font] | [font=Calibri]Dogwood[/ Font] |
| [font=Calibri]Træer[/ Font] | [font=Calibri]Ash[/ Font] |
| [font=Calibri]Træer[/ Font] | [font=Calibri]Maple[/ Font] |
| [font=Calibri]Træer[/ Font] | [font=Calibri]Elm[/ Font] |
| [font=Calibri]Træer[/ Font] | [font=Calibri]Apple [/font] |
Offentlig undertekstToColumns()
Indstil ARange = Range("A:A")
Indstil BRange = Range("B:B")
Indstil CRange = Range("C:C")
Indstil DRange = Range("D:D")
Dim arr() Som streng
lr = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
Set ud = Arbejdsark. Tilføj
out.Name = "ud"
outRow = 2
For i = 2 Til lr
arr = Split(ARange(i), ","")
For j = 0 Til 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
Næste j
Næste jeg
End Sub
Jeg lavede ikke overskrifterne eller håndterede outputarket ordentligt, men du kan grundlæggende se, hvad der foregår.
Indstil ARange = Range("A:A")
Indstil BRange = Range("B:B")
Indstil CRange = Range("C:C")
Indstil DRange = Range("D:D")
Dim arr() Som streng
lr = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
Set ud = Arbejdsark. Tilføj
out.Name = "ud"
outRow = 2
For i = 2 Til lr
arr = Split(ARange(i), ","")
For j = 0 Til 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
Næste j
Næste jeg
End Sub
Jeg lavede ikke overskrifterne eller håndterede outputarket ordentligt, men du kan grundlæggende se, hvad der foregår.
- Side:
- 1
Der er endnu ingen svar på dette indlæg.