VBA

iron3d

CELL内に日本語があるかチェックする †

CELL色が緑に変わるのでデータ>フィルタを利用して抽出することが出来る

Sub JCharCheck()

'##### 初期設定項目
'メモ
'Cells(row,col)
'ROWの開始と終わりを設定すること

SH = "02Nov" '該当シートの名前を指定
s = 2 '<ROW> Start Num 開始番号
e = 543 '<ROW> End Num 終わりの番号
c = 23 '<COL> J=10,W=13 Wが詳細説明文箇所

'シートオブジェクトアクティベイト
Worksheets(SH).Activate

'カウント
Dim Z As Integer

'スクリプト処理
For i = s To e Step 1
    v = Worksheets(SH).Cells(i, c).Value
    num = LenB(StrConv(v, vbFromUnicode)) - Len(v)
    If num <> 0 Then
       Worksheets(SH).Cells(i, c).Interior.ColorIndex = 4 '緑色
       Z = Z + 1
    End If
Next i
MsgBox Z
End Sub