DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
For i = 1 To Cells(65536, 1).End(xlUp).Row
x = 2
For j = 1 To Len(Trim(Cells(i, 1)))
z = Mid(Trim(Cells(i, 1)), j, 1)
If IsNumeric(z) = False And z <> " " Then
If x > 2 Then
Cells(i, x) = num: x = x + 1
End If
Cells(i, x) = z: num = "": x = x + 1
Else
num = num & z
End If
Next j
Next i
Sn modalıSayın leventm,
Nasıl maalesef dersiniz. Hzaır fonksiyon yok diyebilirsiniz ama özel fonksiyon yazılabilir.
İyi çalışmalar