アクセント付き文字をVBAの通常の文字に置き換えます

アクセント付き文字を通常の文字に置き換えるKutoolsfor Excel

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

1. 押したまま 他の + F11 Excelでキーを押すと、 Microsoft Visual Basic forApplicationsウィンドウ.

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. クリック クツール > テキスト > アクセント付き文字を置き換える…、スクリーンショットを参照してください：

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

ノート:
（1）必要な特定のアクセント付き文字がない場合は、 ルールを追加する ボタンをクリックして、上記の[アクセント付き文字の置換]ダイアログのリストボックスに独自のルールを追加します。
（2）[アクセント付き文字の置換]ダイアログボックスで、新しい置換ルールをカスタマイズできます。

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

この アクセント付き文字を置き換える Kutools for Excelの機能を使用すると、ブック全体であらゆる種類のアクセント付き文字を通常の文字に簡単に置き換えることができます。 無料トライアルを！