ExcelのVBA（Visual Basic for Applications）を使うことで、より柔軟な検索が可能になります。以下の手順で設定してみましょう。
Excelを開き、Alt + F11キーを押してVBAエディタを開きます。
「挿入」メニューから「標準モジュール」を選択します。
以下のコードをコピーして、モジュールに貼り付けます
Sub 検索ひらがなカタカナ()
Dim 検索語 As String
Dim セル As Range
検索語 = InputBox("検索したい語句を入力してください")
For Each セル In ActiveSheet.UsedRange
If StrComp(セル.Value, 検索語, vbTextCompare) = 0 Then
セル.Select
MsgBox "一致するセルが見つかりました" & セル.Address
Exit Sub
End If
Next セル
MsgBox "一致するセルは見つかりませんでした。"
End Sub
Sub 検索ひらがなカタカナ()
Dim 検索語 As String
Dim セル As Range
Dim 結果 As String
検索語 = InputBox("検索したい語句を入力してください")
For Each セル In ActiveSheet.UsedRange
If StrComp(セル.Value, 検索語, vbTextCompare) = 0 Then
結果 = 結果 & セル.Address & vbCrLf
End If
Next セル
If 結果 <> "" Then
MsgBox "一致するセルが見つかりました" & vbCrLf & 結果
Else
MsgBox "一致するセルは見つかりませんでした。"
End If
End Sub
コメント