請教：VBA 如何判斷中英文？

本帖最後由 storylai 於 2014-1-8 18:25 編輯

我的情況：
1- 新接手的工作是整理來自不同系統不同來源的報表，
各報表的「姓名」部份有中有英，
但中文名字往往出現「張+空格+三豐」，
如「張三豐」出現了，要手動改！
若看漏了進了 database 則更麻煩。

2- 問題是，我的報表中英文名都在同一欄中，
英文名必須保留空格，
中文名有半形一個、兩個或全形一個空格。
情況如下例：
      Taylor Swift
      張惠妹
      Nicki Minaj
　蔡依林‎
      蘇芮
      Flo Rida
      曹　格
      周　杰倫‎
3- 這種情況還出現在其它如數字，如 12,345，洋系統就偏要出 12 345
而中英文地址的空格則屬於輸入錯誤！

現時每天的新資料，我是用手動排序手動修改，
但過往的資料太多了，
因此，想請教大家，能否用 VBA 判斷中英文，然後再刪除空格。

謝謝大家。

樓主熱帖

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 192
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2025-8-6

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

5^#

發表於 2014-1-10 16:33 | 只看該作者

回復 1# storylai

Sub ex()
Dim A As Range
With 工作表1
For Each A In .Range(.[A1], .[A1].End(xlDown))
n = Asc(A)
If Asc(A) > 255 Or Asc(A) < 1 Then A = Replace(A, " ", ""): A = Replace(A, "　", "")
Next
End With
End Sub

複製代碼

學海無涯_不恥下問

TOP

storylai

小學生 Rank: 1

帖子: 12
主題: 4
精華: 0
積分: 23
點名: 0
作業系統: windows
軟體版本: xp
閱讀權限: 10
性別: 男
註冊時間: 2010-6-4
最後登錄: 2017-9-19

4^#

發表於 2014-1-10 15:24 | 只看該作者

回復 storylai
附檔說明看看
GBKEE 發表於 2014-1-9 08:59

昨晚至今仍上傳不了。

昨晚做了小小程式，給大家一笑。
它基本能達到我的要求，下一步想用 Trim 先刪去名字的兩邊空格，
接著是刪字串中的「半形及全形空格」了。

由於工作內容涉及隱私，故自己弄了個相類的附件。

內容： (空行、中文、英文、數字、其它等欄是判別後做記錄，方便核對)

A B C D E F
客名空行中文英文數字其它

W *
x *
Y *
z *
丁守中 *
田秋堇 *
呂玉玲 *
李鴻鈞 *
林國正 *
洪秀柱 *
陳怡潔 *
陳節如 *
張嘉郡 *
費鴻泰 *
楊瓊瓔 *
蔡煌瑯 *
*