VBAでの半角チェック

Question

前提・実現したいこと

A列に半角文字が入っているかのチェックを行い、
結果に応じて○×が入るようにしたい。。

発生している問題・エラーメッセージ

○×が２行目に１つ入るだけで全てチェックされません。

該当のソースコード

Dim mojia As String
Dim i As Long

For i = 2 to Cells(Rows.count,1).End(xlup).Row

mojia = Cells(i,"A")

Next i

If mojia = StrConv(mojia,vbNarrow) Then
   cells(i,"A").value = "○"
　Else
   cells(i,"A").value = "×"
End If

試したこと

ここに問題に対して試したことを記載してください。

補足情報（FW/ツールのバージョンなど）

ここにより詳細な情報を記載してください。

Comments

[otn]

> ○×が２行目に１つ入るだけで全てチェックされません。

具体的におねがいします。

Answer 1

ループの中にIf文を入れれば良いです。

Dim mojia As String
Dim i As Long

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

    If mojia = StrConv(mojia, vbNarrow) Then
      Cells(i, "A").Value = "○"
    Else
      Cells(i, "A").Value = "×"
    End If
Next i