Excel VBAで半角

質問

Excel VBAで半角

Ａ列が半角のときに、Ｂ列にoと表示させるために下記のソースを考えたのですがうまくいきません。初歩的な質問だとは思いますがよろしくお願いします。

Sub 半角判定()
Dim i

For i = 2 To Range("g65536").End(xlUp).Row

If Application.Len(Cells(i, 1)) = Application.LenB(Cells(i, 1)) Then

Cells(i, 2) ="o"
End If

Next
End Sub

回答No.1

kybo · ベストアンサー

以下の様にしてみて下さい。

Sub 半角判定()
Dim i

For i = 2 To Range("g65536").End(xlUp).Row

If Len(Cells(i, 1).Value) = LenB(StrConv(Cells(i, 1).Value, vbFromUnicode)) Then

Cells(i, 2) = "o"
End If

Next
End Sub

回答No.2

layy

どの行がうまくいかないと思ってたのか、そこも提示した方が良いです。

ＬＥＮとＬＥＮＢを使うのはよかったと思います。

既存の回答で何がどうなっているかわからなかったら
解説ももらうことです。