Nghastell Newydd Emlyn

Gan ddefnyddio'r coma Convert gwerthoedd ar wahân VBA

  Excel
cychwyr
  cychwyr
  Dydd Mawrth, 24 2019 Rhagfyr
  1 atebion
  Ymweliadau 12.4K
0
Pleidleisiau
Dadwneud
Mae defnyddio'r VBA i drosi fy llinyn coma yn rhesi yn gweithio'n wych - ond nawr mae angen i mi gyfateb y toriad gyda'r gwerth yng ngholofn A. Enghraifft
Mae gan Colum A "Coed: Colofn B oedd y llinyn coma: Dogwood, Ash, Masarnen, Llwyfen, Afal.
Sut ydw i'n arddangos fel:
[font=Calibri]Cyfredol[/ ffont]
[font=Calibri]Coed[/ ffont][font=Calibri]Dogwood, Onnen, Masarnen, Llwyfen, Afal[/ ffont]
[font=Calibri]angen[/ ffont]
[font=Calibri]Coed[/ ffont][font=Calibri]Dogwood[/ ffont]
[font=Calibri]Coed[/ ffont][font=Calibri]Ash[/ ffont]
[font=Calibri]Coed[/ ffont][font=Calibri]Maple[/ ffont]
[font=Calibri]Coed[/ ffont][font=Calibri]Elm[/ ffont]
[font=Calibri]Coed[/ ffont][font=Calibri]Afal [/font]
Diolch yn fawr
0
Hynaf yn gyntaf  
Lewis-H
Lewis-H
blynyddoedd 3 yn ôl
·
#2048
0
Pleidleisiau
Dadwneud
Is-destun CyhoeddusI Golofnau()
Gosod ARange = Ystod ("A: A")
Gosod BRrange = Ystod ("B:B")
Gosod CRange = Ystod ("C: C")
Gosod DRange = Ystod ("D: D")
Dim arr() Fel Llinynnol
lr = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlYn ôl).
Gosod allan = Worksheets.Add
out.Name = "allan"
rhes allan = 2
Am i = 2 I lr
    arr = Hollti(ARrange(i), ",")
    Ar gyfer j = 0 I UBound(arr)
        allan.Cells(outRow, 1) = Trimio(arr(j))
        allan. Cells(outRow, 2) = BRrange(i)
        allan.Cells(outRow, 3) = CRrange(i)
        allan.Cells(outRow, 4) = DRrange(i)
        allanRow = rhes allan + 1
    Nesaf j
Nesaf i
Is-End
Wnes i ddim gwneud y penawdau na delio'n iawn â'r daflen allbwn ond gallwch chi weld yn y bôn beth sy'n digwydd.
  • Tudalen:
  • 1
Ni wnaed unrhyw atebion i'r swydd hon eto.