Menggunakan VBA untuk mengonversi string koma saya menjadi baris berfungsi dengan baik- tetapi sekarang saya harus mencocokkan breakout dengan nilai di kolom A. Contoh
Kolom A memiliki "Pohon: Kolom B adalah string koma: Dogwood,Ash,Maple,Elm,Apple.
Bagaimana cara menampilkan sebagai:
Terima kasih
Kolom A memiliki "Pohon: Kolom B adalah string koma: Dogwood,Ash,Maple,Elm,Apple.
Bagaimana cara menampilkan sebagai:
| [font=kalibri]terbaru[/ font] | |
| [font=kalibri]Pohon[/ font] | [font=kalibri]Dogwood, Ash, Maple, Elm, Apple[/ font] |
| [font=kalibri]Perlu[/ font] | |
| [font=kalibri]Pohon[/ font] | [font=kalibri]Dogwood[/ font] |
| [font=kalibri]Pohon[/ font] | [font=kalibri]Abu[/ font] |
| [font=kalibri]Pohon[/ font] | [font=kalibri]Maple[/ font] |
| [font=kalibri]Pohon[/ font] | [font=kalibri]Elm[/ font] |
| [font=kalibri]Pohon[/ font] | [font=Calibri]Apel [/font] |
SubteksToColumns Publik()
Atur ARange = Range("A:A")
Atur BRange = Range("B:B")
Atur CRange = Range("C:C")
Atur DRange = Range("D:D")
Redupkan arr() Sebagai String
lr = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
Set out = Lembar Kerja.Tambah
keluar.Nama = "keluar"
baris keluar = 2
Untuk i = 2 Ke lr
arr = Pisahkan(ARange(i), ",")
Untuk j = 0 Ke UBound(arr)
keluar.Sel(baris keluar, 1) = Pangkas(arr(j))
keluar.Sel(baris keluar, 2) = BRange(i)
keluar.Sel(Row, 3) = CRange(i)
keluar.Sel(Row, 4) = DRange(i)
OutRow = OutRow + 1
J berikutnya
Selanjutnya saya
End Sub
Saya tidak melakukan tajuk atau menangani lembar keluaran dengan benar tetapi pada dasarnya Anda dapat melihat apa yang terjadi.
Atur ARange = Range("A:A")
Atur BRange = Range("B:B")
Atur CRange = Range("C:C")
Atur DRange = Range("D:D")
Redupkan arr() Sebagai String
lr = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
Set out = Lembar Kerja.Tambah
keluar.Nama = "keluar"
baris keluar = 2
Untuk i = 2 Ke lr
arr = Pisahkan(ARange(i), ",")
Untuk j = 0 Ke UBound(arr)
keluar.Sel(baris keluar, 1) = Pangkas(arr(j))
keluar.Sel(baris keluar, 2) = BRange(i)
keluar.Sel(Row, 3) = CRange(i)
keluar.Sel(Row, 4) = DRange(i)
OutRow = OutRow + 1
J berikutnya
Selanjutnya saya
End Sub
Saya tidak melakukan tajuk atau menangani lembar keluaran dengan benar tetapi pada dasarnya Anda dapat melihat apa yang terjadi.
- halaman:
- 1
Tidak ada balasan yang dibuat untuk posting ini.