Verileri, yandaki sütünlara aktarılması

[1903emre34@gmail.com]

Merhabalar,

A3 sütundaki verileri, sırasıyla diğer yandaki sütunlara aktaracak şekilde nasıl kod oluşturabiliriz (20 satır bulunmaktadır)

 

[vardar07]

Deneyiniz.

Sub ayır()
Dim SAT As Integer
On Error Resume Next
For i = 1 To Cells(65536, "A").End(xlUp).Row
a = Len(Cells(i, 1)) - Len(Replace(Cells(i, 1), " ", "")) + 1
For SAT = 1 To a
Cells(i, 2) = Split(Cells(i, "A"), " ")(0)
Cells(i, 3) = Split(Cells(i, "A"), " ")(1) & " " & Split(Cells(i, "A"), " ")(2) & " " & Split(Cells(i, "A"), " ")(3)
Cells(i, 4) = Split(Cells(i, "A"), " ")(4)
Cells(i, 5) = Split(Cells(i, "A"), " ")(5)
Cells(i, 6) = Split(Cells(i, "A"), " ")(6)
Cells(i, 7) = Split(Cells(i, "A"), " ")(7)
Cells(i, 8) = Split(Cells(i, "A"), " ")(8)
Next
Next
End Sub

 

[1903emre34@gmail.com]

Teşekkürler, Vardar bey

Hayırlı günler