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