VBA for each の練習をしてるのですが、うまく作動しません。

Question

VBA始めたての初心者になるのです。つまらない質問かもしれませんが、回答を頂けないでしょうか。

for eachを練習しており、練習用のコードを書いてみたのですが、思っているように動きません。
しかし、私には何が原因なのかが分からない状態です。

以下に私のコードを記載します。

Sub forEachPractice()

Dim columnA As Range, column As Range
Set columnA = Sheets(1).Range("a1:a100")

For Each column In columnA
    If (column.Value = "a") Then
        columnA.Offset(0, 1).Value = 0
    Else
        columnA.Offset(0, 1).Value = 1
    End If
Next

End Sub

私としては、A列のセルに a と入力されている隣のセルに 0 を入力したいのですが、このコードを走らせると、B列に全て 1 が入力されてしまいます。

伝わりにくい部分もあり、申し訳ございませんが、
教えて頂けますと幸いです。

Answer 1

columnA.Offset(0, 1).Value = 0
修正を下記に修正
column.Offset(0, 1).Value = 0

前者だと A1:B100 の右の列 B1:B100全体に繰り返し代入していることになります。

以下は質問への回答ではないですが、アドバイスです。

columnという変数名はcolumnプロパティと被っているので避けたほうがいいでしょう。
また、columnは列という意味ですので、コードの意味と合致していないので、意味と合致する名称にした方かいいでしょう。
また、

For Each column In columnA
の部分もループする対象を明確にするために、
For Each column In ColumnA.Cells
というようにした方がいいでしょう。（この辺は好みですが）

上記を考慮して自分が書くなら下記のようなコードになります。

Sub forEachPractice()

    Dim rngCells As Range, rngCell As Range
    Set rngCells = Range("a1:a100")

    For Each rngCell In rngCells.Cells
        If rngCell.Value = "a" Then
            rngCell.Offset(0, 1).Value = 0
        Else
            rngCell.Offset(0, 1).Value = 1
        End If
    Next

End Sub

Comments

[tttkkk]

ようやく納得することができました。
さらに、回答だけでなくアドバイスもして頂き非常に参考になりました。

ご丁寧にご指導して頂き、ありがとうございました。

Answer 2

以下のようにしてください。

Sub forEachPractice()

Dim columnA As Range, column As Range
Set columnA = Sheets(1).Range("a1:a100")

For Each column In columnA
    If (column.Value = "a") Then
        column.Offset(0, 1).Value = 0
    Else
        column.Offset(0, 1).Value = 1
    End If
Next

End Sub

Comments

[tttkkk]

回答頂きありがとうございます。
tatsu99様のコードですと、問題なく作動しました。

しかし、大変申し訳ございません。
私にはtatsu99様のコードと私自身のコードの何が違うのか分からないので、違いを教えて頂けないでしょうか。

[tatsu99]

columnA.Offset(0, 1).Value = 0
でなく
column.Offset(0, 1).Value = 0
にします。Aがありません。
columnA.Offset(0, 1).Value = 1も同様です。