Note: The other languages of the website are Google-translated. Back to English

如何在Excel中將重音字符替換為常規字符?

您是否在Microsoft Excel中收到一些帶有重音符號的報告? 遍歷整個工作簿並用人工將帶重音符號的字符替換為常規字符似乎很乏味,例如“û到“ u”。本文將介紹一些棘手的內容,以便在Excel中用常規字符快速替換重音字符。


用VBA將重音字符替換為常規字符

對於熟悉Microsoft Excel的用戶,使用VBA宏是處理此復雜工作的簡便方法。

1. 按住 其他 + 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)它不會直接替換所選單元格字符串中的重音字符。


用Kutools for Excel用普通字符替換重音字符

使用VBA宏需要太多的技能和知識。 而且以下方法將使您僅需單擊幾下即可更輕鬆地工作。 Kutools for Excel的替換重音字符工具使您可以輕鬆地一次用常規字符替換所有重音字符。

Excel的Kutools - 包括 300 多個方便的 Excel 工具。 全功能免費試用 30-天,無需信用卡! 立即行動吧!

1. 選擇要替換所有重音字符的範圍。

2. 點擊 庫工具 > 文本 > 替換重音字符…,請參見屏幕截圖:

3. In 替換重音字符 對話框中,單擊 全選 按鈕選擇所有替換規則,然後單擊確定按鈕替換所有重音字符。 看截圖:

筆記:
(1)如果沒有想要的特定重音字符,則可以單擊 添加規則 按鈕,將您自己的規則添加到“替換重音字符”對話框上方的列錶框中。
(2)您可以在“替換重音字符”對話框中自定義新的替換規則。

現在,您將立即將選定範圍內的所有重音字符轉換為常規字符。 看截圖:

替換重音字符 Kutools for Excel的功能可以輕鬆地在整個工作簿中用常規字符替換各種重音字符。 免費試用!


最佳辦公效率工具

Kutools for Excel 解決了你的大部分問題,並將你的生產力提高了 80%

  • 重用: 快速插入 複雜的公式,圖表 以及您以前使用過的任何東西; 加密單元 帶密碼 創建郵件列表 並發送電子郵件...
  • 超級公式欄 (輕鬆編輯多行文本和公式); 閱讀版式 (輕鬆讀取和編輯大量單元格); 粘貼到過濾範圍...
  • 合併單元格/行/列 不會丟失數據; 拆分單元格內容; 合併重複的行/列...防止細胞重複; 比較範圍...
  • 選擇重複或唯一 行; 選擇空白行 (所有單元格都是空的); 超級查找和模糊查找 在許多工作簿中; 隨機選擇...
  • 確切的副本 多個單元格,無需更改公式參考; 自動創建參考 到多張紙; 插入項目符號,複選框等...
  • 提取文字,添加文本,按位置刪除, 刪除空間; 創建和打印分頁小計; 在單元格內容和註釋之間轉換...
  • 超級濾鏡 (將過濾方案保存並應用於其他工作表); 高級排序 按月/週/日,頻率及更多; 特殊過濾器 用粗體,斜體...
  • 結合工作簿和工作表; 根據關鍵列合併表; 將數據分割成多個工作表; 批量轉換xls,xlsx和PDF...
  • 超過 300 項強大的功能. 支持 Office / Excel 2007-2021 和 365。支持所有語言。 在您的企業或組織中輕鬆部署。 完整功能 30 天免費試用。 60 天退款保證。
kte選項卡201905

Office選項卡為Office帶來了選項卡式界面,使您的工作更加輕鬆

  • 在Word,Excel,PowerPoint中啟用選項卡式編輯和閱讀,發布者,Access,Visio和Project。
  • 在同一窗口的新選項卡中而不是在新窗口中打開並創建多個文檔。
  • 將您的工作效率提高 50%,每天為您減少數百次鼠標點擊!
officetab底部
按評論排序
留言 (12)
還沒有評分。 成為第一位評論!
網站主持人對此評論進行了最小化
在“使用 VBA 將重音字符替換為常規字符”部分的第 3 步中,您必須將 CheckStringCHAR 替換為 STRIPACCENT,這是提供的代碼中的函數名稱!
網站主持人對此評論進行了最小化
你好,優秀的宏。 感謝您發布此信息。 但是我想知道是否要替換 excel 文件中的所有字符,我怎樣才能一次做到這一點? 謝謝維韋克
網站主持人對此評論進行了最小化
如果您要替換特定的重音字符(例如 é),您可以執行查找並替換全部(搜索“é”並替換為“e”)。 這解決了我的問題。
網站主持人對此評論進行了最小化
沒有狗屎夏洛克
網站主持人對此評論進行了最小化
是否可以用另一個字符替換多個字符? 沒有辦法說我想用é替換é

我怎樣才能在 Kutools for Excel 中進行這樣的大規模替換? 我喜歡多重替換功能,但如果可以替換整個單詞,它會更有用。 Anyboy知道我該怎麼做嗎?
網站主持人對此評論進行了最小化
當您刪除特殊字符時,它也會刪除文本之間的空格??
網站主持人對此評論進行了最小化
VBA 函數 StripAccent() 就像一個魅力,非常感謝你。 但是我想問一下“Dim A As String * 1”初始化字符串末尾的這個“* 1”到底是什麼,我以前從未見過,我自己也找不到答案至今。
網站主持人對此評論進行了最小化
我已經添加了代碼並且它工作得很好但是我需要在代碼中添加更多的口音,因為我缺少波蘭口音。 如何編輯代碼並添加這些口音? 我嘗試在記事本中執行此操作,然後再次粘貼代碼,但它將字母改回正常字符。 我不是專家,所以我真的需要你的幫助!
網站主持人對此評論進行了最小化
Const AccChars = "ŠŽšžYAÁÂA​​ÄAÇEÉEËIÍÎI?NOóÔOÖUÚUÜÝaáââaçeéeëiíîi?noóôoöuúuüýyĄĄĆŁŃóŚŻŹąęćłńóśżź"
常量 RegChars = "SZszYAAAAAACEEEEIIIIDNOOOOOUUUUYaaaaaaaceeeeidnooooouuuuyyAECLNOSZZaeclnoszz"
網站主持人對此評論進行了最小化
我在我的工作表上嘗試了那個 VBA 腳本,它有幾個帶有重音字符的名稱。 這很好地清理了它們。 謝謝。
網站主持人對此評論進行了最小化
Dobrý deň, starší súbor xlsm mi vo win11 debuguje na tom, že nevie nájsť meno hárka "Prehľad", má problém s diakritikou.
Nie je problém zmeniť pomenovanie hárka na nové bez diakritiky resp. vyhľadať objekt inak, oveľa väčší problém je však zároveň 十,
že z tohto súboru v exceli pomocou VBA odosielam emaily a ak chcem pomocou VBA napísať telo emailu, tak sa mi v outlooku
menia písmená s diakritikou (č, ď, ť ...) na rôzne zástupné znaky。 電子郵件 vyzerá nedôstojne a nechcem ho písať ani bez diakritiky,
pretože sme predsa na Slovensku a komunikujeme ešte v materinskej reči...
Môžete mi prosím napísať, či sa tento problém dá odstrániť konkrétnym nastavením windows alebo officu?
V predošlom počítači to fungovalo bez problémov。
Ďakujem pekne。
網站主持人對此評論進行了最小化
如何用一個字符替換多個字符? 例如 ©e?
這裡還沒有評論
留下你的意見
以訪客身份發帖
×
評價此帖子:
0   字符
推薦地點

關注我們

版權所有©2009 - 萬維網。extendoffice.com。 | 版權所有。 供電 ExtendOffice。 |
Microsoft和Office徽標是Microsoft Corporation在美國和/或其他國家的商標或註冊商標。
受Sectigo SSL保護