excel2000で列に全角かな以外の文字が含まれているか検索

質問

excel2000で列に全角かな以外の文字が含まれているか検索したいのですがどうすればいいのでしょうか。
宜しくお願いいたします

回答No.2

zap35

質問の意図が
　あ～ん　　ぁぃぅぇぉゃゅょ
　がぎぐげござじずぜぞだぢづでどばびぶべぼ
　ぱぴぷぺぽ　　ー゜゛ゐゑ
以外の文字が入力されたセルを見つけたいということで良ければ以下のマクロを実行してみてください。「列」の条件が分からないので「使用されているセル範囲で、文字が入力されているセル全て（＝式が入力されていない）」を対象としてセルに背景色をつけるようにしました

Sub Macro()
　Dim RE, strPattern, repPattarn, trgStr As String
　Dim r As Range, mchItem
　Set RE = CreateObject("VBScript.RegExp")
　strPattern = "[ぁ-んー゛゜]"
　On Error Resume Next
　With RE
　　.Pattern = strPattern ''検索パターンを設定
　　.IgnoreCase = True ''大文字と小文字を区別しない
　　.Global = True ''文字列全体を検索
　　For Each r In ActiveSheet.Cells.SpecialCells(xlCellTypeConstants, 3)
　　　trgStr = r.Formula
　　　Set mchItem = .Execute(trgStr)
　　　If mchItem.Count <> Len(trgStr) Then
　　　　r.Interior.ColorIndex = 3
　　　End If
　　Next r
　End With
　Set RE = Nothing
End Sub

マクロはALT＋F11でVBE画面を開き、「VBAProjectエクスプローラのシート名右クリック」→「挿入」→「標準モジュール」で表示される画面にペーストして下さい。実行はALT＋F8を押して、マクロ名を選択します。

お礼

ありがとうございます
マクロは使用したことがないのですが試してみます。

回答No.1

mshr1962

半角文字のチェックでいいなら隣の列にでも
=IF(LEN(A1)*2=LENB(A1),"無し","有り")
とでもしてこの列で確認すればいいのでは？

それとも全角の数字・記号・漢字もチェックでしょうか？

お礼

早速試してみます。
ありがとうございました