Excelでアクセント付き文字を通常の文字に置き換えるにはどうすればよいですか？

VBAを使用してアクセント付き文字を通常の文字に置き換える

Kutools for Excelを使用してアクセント付き文字を通常の文字に置き換える

Microsoft Excelに精通しているユーザーにとって、VBAマクロを使用することは、この複雑な作業に対処する簡単な方法です。

1. ExcelでAlt + F11キーを押したままにすると、Microsoft Visual Basic for Applicationsウィンドウが開きます。

2. 「挿入」>「モジュール」をクリックし、次のマクロを モジュールウィンドウに貼り付けます。

Function StripAccent(thestring As String)
Dim A As String * 1
Dim B As String * 1
Dim i As Integer
Const AccChars= "ŠŽšžŸÀÁÂÃÄÅÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖÙÚÛÜÝàáâãäåçèéêëìíîïðñòóôõöùúûüýÿ"
Const RegChars= "SZszYAAAAAACEEEEIIIIDNOOOOOUUUUYaaaaaaceeeeiiiidnooooouuuuyy"
For i = 1 To Len(AccChars)
A = Mid(AccChars, i, 1)
B = Mid(RegChars, i, 1)
thestring = Replace(thestring, A, B)
Next
StripAccent = thestring
End Function

3. 次に、空白のセルに移動し、セルに次の数式を貼り付けます：=CheckStringCHAR(InString)、例えば =CheckStringCHAR("ù")、または =CheckStringCHAR(A2)。

注意:
(1) Microsoft Visual BasicがUnicodeをサポートしていない場合、アクセント付き文字をまったく認識できない可能性があります。たとえば、「š」をVisual Basicに貼り付けると、「?」になることがあります。その場合、このマクロは使用できません。
(2) 選択されたセル内の文字列のアクセント付き文字を直接置き換えません。

VBAマクロを使用するには多くのスキルと知識が必要です。そして、次の方法は、数回のクリックだけで簡単に作業できるようになります。Kutools for Excelのアクセント付き文字を置換するツールを使用すると、一度にすべての種類のアクセント付き文字を通常の文字に簡単に置き換えることができます。

1. アクセント付き文字をすべて置き換える範囲を選択します。

2. クリック Kutools > テキスト > アクセント付き文字を置換… スクリーンショットをご覧ください：

3. 「 アクセント付き文字を置換 」ダイアログボックスで、「 すべて選択 」ボタンをクリックしてすべての置換ルールを選択し、「OK」ボタンをクリックしてすべてのアクセント付き文字を置換します。スクリーンショットをご覧ください：

注意:
(1) 置換したい特定のアクセント付き文字がない場合は、「 ルールの追加 」ボタンをクリックして独自のルールを上記の「アクセント付き文字を置換」ダイアログのリストボックスに追加できます。
(2) 「アクセント付き文字を置換」ダイアログボックスで新しい置換ルールをカスタマイズできます。

これで、選択した範囲内の文字列にあるすべてのアクセント付き文字がすぐに通常の文字に変換されます。スクリーンショットをご覧ください：

Kutools for Excelの「アクセント付き文字を置換」機能を使用すると、すべてのワークブック内のさまざまなアクセント付き文字を簡単に通常の文字に置き換えることができます。無料トライアル版をお試しください！