エクセル・マクロで特殊文字を検索する方法

質問

エクセルの一覧表に日付欄があり、通常ですと2013年11月24日と表示されるところが、文字化けしている部分があります。多数のシートの中の一部のシートに、この文字化けが発生しているようなので、文字化けしているシート名をマクロで把握して、文字化けしているシート名の一覧表を作成したいと考えています。

文字化けしている特殊記号の中に共通している文字（半角の「・」に近い。以後「Ｕ・」と表現する）がありましたので、QNo.1852491を参考にしてFunction U_Codeを作成して unicodeを調べたところ、183と表示されました。

また、マクロの中でunicodeを文字にして返す Function U_Stringを作成して、ChrW(183)の値をシート上に書き出してみたところ、「Ｕ・」が表示されました。このシート状に書き出された値を U_Codeでチェックしたところ「183」と表示されましたので、「unicode 183」であることは間違いないようです。

次に、下記のマクロの中でFindを使用して「Ｕ・」を検索しようとしたのですが、検索できませんでした。
ちなみに、uMoji="月"としてみると、検索できるのでロジックとしては機能しているようなのですが．．．
どのようにすれば、マクロで「Ｕ・」を検索できるか教えていただきたくお願いします。

Dim ws As Worksheet
Dim Rng As Range
Dim j As Integer
Dim MaxRow As Long
Dim SheetName As String
Dim uMoji As String

uMoji = U_String(183)

j = 1

For Each ws In Worksheets
SheetName = ws.Name

'-----------------------
Sheets(SheetName).Select
'-----------------------

MaxRow = Range("A6").End(xlDown).Row　　'日付列の最後の行番号を取得
Set Rng = Range(Cells(6, 1), Cells(MaxRow, 1)).Find(What:=uMoji, LookIn:=xlValues, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False)

If Not Rng Is Nothing Then
Sheets("文字化けシート名一覧").Cells(j, 1) = ws.Name

j = j + 1
End If

Next ws

回答No.1

puddingeater · ベストアンサー

シート内容・U_String関数を自分なりに作って試したところ、提示のコードそのままで検索できました。
(Excel 2010)

・1文字目が「Ｕ・」 → シート名が出る
・2文字目が「Ｕ・」 → シート名が出る
・「Ｕ・」を含むセルなし → シート名は出ない

お礼

検索できたとのことでしたので、もう一度私のエクセルシートを見直してみましたところ、文字化けしている時系列データの位置が、マクロ作成当初のものと異なっておりました。知らないうちに、誰かが変更してしまっていたようです。
時系列データの位置を修正してマクロを実行してみたところ、無事検索でき文字化けシートを抽出できました。
おかげさまで助かりました。どうもありがとうございました。