Sub makro4()
Dim i As Integer
Dim j As String
For i = 1 To 10 Step 1
j = j & "+" & i
Next
Range("B8") = j
End Sub

Çıktısı : +1+2+3+4+5+6+7+8+9+10

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

Çıktısı : +1+3+5+7+9

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

Çıktısı : +2+4+6+8+10

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

Çıktısı : +1+3+5+7+9+11

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

Çıktısı : +2+4+6+8+10

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

Çıktısı : +2+4+6+8+10

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

Çıktısı : +1+3+5+7+9

Ben burdaki artışları anlamadım arkadaşlar yardımcı olabilirmisiniz.

Mesela yöntem 2 de :

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

for i = 1 to 10 diyo hemen altında i=i+1 burda i 2 oluyo sonra 1 artıp 3 olması gerekirken 2+4 diye gitmesini anlamadım.