1. Anasayfa
  2. Ofis Uygulamaları

Excel’de virgüllü kelimeleri yan yana sıralama ve ayırma


0

Excelde bir hücrede yer alan örnek olarak xxxxx,yyyyy,zzzzz gibi bilgileri yan yana bölmek için aşağıdaki kodu kullanmanız yeterli olacak iyi çalışmalar;

Sub Düğme2_Tıklat()

  Tstring = Selection.Value
   
    For i = 1 To Len(Tstring)
        If Mid(Tstring, i, 1) = "," Then z = z + 1
    Next i
    ReDim y(z + 1)
   
    For i = 1 To Len(Tstring)
   
        If Mid(Tstring, i, 1) <> "," Then
            x = x & Mid(Tstring, i, 1)
        End If
       
        If Mid(Tstring, i, 1) = "," Then
            y(c) = x
            c = c + 1
            x = ""
        End If
   
    Next i

    y(z) = x
   
    For i = 0 To UBound(y)
        Selection.Offset(0, i + 1).Value = y(i)
    Next i

End Sub
 

Bu İçeriğe Tepkin Ne Oldu?
  • 0
    ba_ar_l_
    Başarılı
  • 0
    gayet_yi
    Gayet İyi
  • 0
    te_ekk_rler
    Teşekkürler
  • 0
    anlamad_m
    Anlamadım
  • 0
    yetersiz
    Yetersiz
İlginizi Çekebilir
Subscribe
Bildir
guest

This site uses Akismet to reduce spam. Learn how your comment data is processed.

0 Yorum
Inline Feedbacks
View all comments