レアケースですけど、メーカーからの資料で品番にひらがなと半角英数字が混じっているケースがあります。

それを一括削除か置き換えする方法です。
現実的ではないので置き換えはしないと思います・・・


置き換えるマクロのコード
Sub ReplaceHiraganaKatakanaCharacters() Dim cell As Range Dim i As Integer Dim hiraganaKatakanaChars As String Dim replacementChar As String Dim result As String ' ひらがなとカタカナの文字のリストを設定 hiraganaKatakanaChars = "ぁあぃいぅうぇえぉおかがきぎくぐけげこごさざしじすずせぜそぞただちぢつづてでとどなにぬねのはばぱひびぴふぶぷへべぺほぼぽまみむめもゃやゅゆょよらりるれろゎわゐゑをん" & _ "ァアィイゥウェエォオカガキギクグケゲコゴサザシジスズセゼソゾタダチヂッツヅテデトドナニヌネノハバパヒビピフブプヘベペホボポマミムメモャヤュユョヨラリルレロヮワヰヱヲン" ' 置き換える文字列を指定 replacementChar = "置き換えたい文字列" ' 選択したセル範囲内の各セルを処理 For Each cell In Selection result = "" ' セル内のテキストを1文字ずつチェック For i = 1 To Len(cell.Value) If InStr(hiraganaKatakanaChars, Mid(cell.Value, i, 1)) > 0 Then ' ひらがなまたはカタカナ文字の場合、指定した文字列に置き換え result = result & replacementChar Else ' ひらがなまたはカタカナ文字でない場合はそのまま結果に追加 result = result & Mid(cell.Value, i, 1) End If Next i ' 結果をセルにセット cell.Value = result Next cell End Sub