DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub Ayrıştır()
ayraç = Chr(10)
For Each hücre In Selection
değer = Split(hücre, ayraç)
For a = 0 To UBound(değer)
hücre.Offset(0, a + 1) = değer(a)
Next
Next
End Sub
=YERİNEKOY(A1;DAMGA(10);" ")