VBA エクセル leftを使ったループについて

Question

B列から初めの２文字だけ取り出してA列の最終行までコピーしたいのですが、下のコードだと１行目にしか値が代入されません
どこが間違っているか教えて下さい。お願いします。

Sub left()
Dim s As String
Dim i
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
s = Range("b" & i).Value
s = left(s, 2)
Range("a" & i).Value = s
i = i + 1
Next


End Sub

Answer 1

For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
s = Range("b" & i).Value
s = left(s, 2)
Range("a" & i).Value = s
'i = i + 1 まずここ要らない。というかやっちゃダメ
Next

あと

Rows.Count

にはどんな値が入っているでしょうか？
それが判れば

Cells(Rows.Count, 1).End(xlUp).Row

の意味が分かってくるはず
そうすると
CurrentRegion
UsedRange
【エクセルVBA】シートで使用されているセルの範囲全てを取得する方法
が使いたくなります。

Answer 2

For文でiをインクリメントしてくれるので、i = i + 1が不要です。

Answer 3

A列が空欄なのであればB列の最終行を求めないといけません。

For i = 1 To Cells(Rows.Count, 2).End(xlUp).Row

あと、一行おきにしたいのでなければ↓は削除してください。

i = i + 1