İçindekiler
Bu öğretici, dizelerin hücrelere nasıl bölüneceğini gösterecektir.
Dizeyi Hücrelere Böl
VBA'da, bir metin dizisini bir Diziye bölmek için Bölme İşlevini kullanabiliriz.
Not: VBA'da Bölme İşlevini kullanmak için tam bir mega kılavuz yazdık. İncelemenizi şiddetle tavsiye ederiz.
Ardından, bölünmüş metni Excel hücrelerine çıkararak dizide dolaşabiliriz:
| 12345678910111213141516171819 | Sub SplitBySemicolonExample()'Değişkenleri tanımlayınDim MyArray() As String, MyString As String, I As Variant, N As Integer'Noktalı virgül sınırlayıcılı örnek dizeMyString = "[email protected];[email protected];[email protected];[email protected]"'Dizenin bileşen parçalarını bölmek için Böl işlevini kullanınMyArray = Böl(MyString, ";")'Çalışma sayfasını temizleActiveSheet.UsedRange.Clear'dizi boyunca yineleN = 0 için UBound(MyArray)'Her e-posta adresini çalışma sayfasının ilk sütununa yerleştirinAralık("A" & N + 1).Value = MyArray(N)Sonraki NAlt Bitiş |
Alternatif olarak, diziyi bir çalışma sayfasına çıkarmak için Transpose İşlevini kullanabiliriz:
| 12345678910111213 | Alt CopyToRange()'Değişkenler oluşturDim MyArray() As String, MyString As String'Boşluk sınırlayıcılı örnek dizeMyString = "Bir,İki,Üç,Dört,Beş,Altı"'Dizenin bileşen parçalarını bölmek için Böl işlevini kullanınMyArray = Böl(MyString, ",")'Diziyi çalışma sayfasına kopyalayınRange("A1:A" & UBound(MyArray) + 1).Value = WorksheetFunction.Transpose(MyArray)Alt Bitiş |
