Sub makro5_2() ' yöntem 2
Dim i As Integer
Dim j As String
For i = 1 To 10
i = i + 1
j = j & "+" & i
Next
Range("B9") = j
End Sub


XEJDER dediği gibi doğru.

ek olarak demek istediğim burada şair

For i = 1 To 10 step 2

şekilde yapmış gibi oluyor.