Virgül dizimi satırlara dönüştürmek için VBA'yı kullanmak harika çalışıyor - ama şimdi koparmayı A sütunundaki değerle eşleştirmem gerekiyor. Örnek
Sütun A'da "Ağaçlar: Sütun B virgül dizesiydi: Kızılcık, Kül, Akçaağaç, Karaağaç, Elma.
Şu şekilde nasıl görüntüleyebilirim:
teşekkür ederim
Sütun A'da "Ağaçlar: Sütun B virgül dizesiydi: Kızılcık, Kül, Akçaağaç, Karaağaç, Elma.
Şu şekilde nasıl görüntüleyebilirim:
| [yazı tipi=Calibri]akım[/ font] | |
| [yazı tipi=Calibri]Ağaçlar[/ font] | [yazı tipi=Calibri]Kızılcık, Dişbudak, Akçaağaç, Karaağaç, Elma[/ font] |
| [yazı tipi=Calibri]gerek[/ font] | |
| [yazı tipi=Calibri]Ağaçlar[/ font] | [yazı tipi=Calibri]Kızılcık sopası[/ font] |
| [yazı tipi=Calibri]Ağaçlar[/ font] | [yazı tipi=Calibri]Kül[/ font] |
| [yazı tipi=Calibri]Ağaçlar[/ font] | [yazı tipi=Calibri]Akçaağaç[/ font] |
| [yazı tipi=Calibri]Ağaçlar[/ font] | [yazı tipi=Calibri]Karaağaç[/ font] |
| [yazı tipi=Calibri]Ağaçlar[/ font] | [font=Calibri]Elma [/font] |
Genel Alt textToColumns()
Aranj = Aralık ("A:A") olarak ayarla
BRange = Aralık ("B:B") olarak ayarla
CRange = Aralık ("C:C") olarak ayarla
DRange = Aralık ("D:D") olarak ayarlayın
Dizge Olarak Dim arr()
lr = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
Set out = Çalışma Sayfaları.Ekle
out.Name = "çıkış"
sıra dışı = 2
i = 2 için lr
dizi = Böl(ARange(i), ",")
j = 0 için UBound(arr) için
out.Cells(outRow, 1) = Kırp(dizi(j))
out.Cells(outRow, 2) = BAralık(i)
out.Cells(outRow, 3) = CRange(i)
out.Cells(outRow, 4) = DRange(i)
sıra dışı = sıra dışı + 1
Sonraki j
I Sonraki
End Sub
Başlıkları yapmadım veya çıktı sayfasıyla düzgün bir şekilde ilgilenmedim ama temelde neler olduğunu görebilirsiniz.
Aranj = Aralık ("A:A") olarak ayarla
BRange = Aralık ("B:B") olarak ayarla
CRange = Aralık ("C:C") olarak ayarla
DRange = Aralık ("D:D") olarak ayarlayın
Dizge Olarak Dim arr()
lr = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
Set out = Çalışma Sayfaları.Ekle
out.Name = "çıkış"
sıra dışı = 2
i = 2 için lr
dizi = Böl(ARange(i), ",")
j = 0 için UBound(arr) için
out.Cells(outRow, 1) = Kırp(dizi(j))
out.Cells(outRow, 2) = BAralık(i)
out.Cells(outRow, 3) = CRange(i)
out.Cells(outRow, 4) = DRange(i)
sıra dışı = sıra dışı + 1
Sonraki j
I Sonraki
End Sub
Başlıkları yapmadım veya çıktı sayfasıyla düzgün bir şekilde ilgilenmedim ama temelde neler olduğunu görebilirsiniz.
- Sayfa:
- 1
Bu gönderi için henüz cevap yok.