VBA函數(shù)批量將將字符由全角轉(zhuǎn)為半角，或由半角轉(zhuǎn)為全角-同時(shí)適用Excel Access

VBA函數(shù)批量將將字符由全角轉(zhuǎn)為半角，或由半角轉(zhuǎn)為全角，及如何判斷一串字符里面含有全角的英文數(shù)字符號(hào)

Excel微信群中有網(wǎng)友有不少表格是全角，希望使用VBA批量轉(zhuǎn)換為半角。

嘗試用Access寫(xiě)了一個(gè)，在Excel VBA里也通用。

'VBA將字符由全角轉(zhuǎn)為半角
'調(diào)用方法 gf_WideToNarrow("Ｅｘｃｅｌ交流網(wǎng)２０１６")
Public Function gf_WideToNarrow(strSrc As String) As String

    Dim strResult As String
    '通過(guò)StrConv及 vbNarrow參數(shù)轉(zhuǎn)換
    strResult = StrConv(strSrc, vbNarrow)
    gf_WideToNarrow = strResult

End Function
 

'VBA將字符由半角轉(zhuǎn)為全角
Public Function gf_NarrowToWide(strSrc As String) As String
    
    Dim strResult As String
    '通過(guò)StrConv及 vbWide參數(shù)轉(zhuǎn)換
    strResult = StrConv(strSrc, vbWide)
    gf_NarrowToWide = strResult

End Function

另判斷 字符串中是否含有全角符號(hào)的函數(shù)

'判斷字符串有否包含全角
'調(diào)用方法：gf_IncludeWideChar("Ｅｘｃｅｌ交流網(wǎng)２０１６")
Public Function gf_IncludeWideChar(strSrc As String) As Boolean

 gf_IncludeWideChar = (strSrc = StrConv(strSrc, vbNarrow))
 
End Function

'單個(gè)字符判斷，也可使用 AscB(Mid(字符串, i, 1)) = Asc(Mid(字符串, i, 1))

網(wǎng)絡(luò)上Rubi的專欄 還有另一種VBA 全角轉(zhuǎn)半角的方法 是使用逐個(gè)對(duì)應(yīng)的方法，不夠靈活，但可以按自己的方式來(lái)定義

Option Explicit

Sub BatchReplace()
    Dim oDict, strKey
    
    Set oDict = CreateObject("Scripting.Dictionary")
    
    '全角數(shù)字轉(zhuǎn)換為半角
    oDict.Add "１", "1"
    oDict.Add "２", "2"
    oDict.Add "３", "3"
    oDict.Add "４", "4"
    oDict.Add "５", "5"
    oDict.Add "６", "6"
    oDict.Add "７", "7"
    oDict.Add "８", "8"
    oDict.Add "９", "9"
    oDict.Add "０", "0"
    '小寫(xiě)全角轉(zhuǎn)換
    oDict.Add "ａ", "a"
    oDict.Add "ｂ", "b"
    oDict.Add "ｃ", "c"
    oDict.Add "ｄ", "d"
    oDict.Add "ｅ", "e"
    oDict.Add "ｆ", "f"
    oDict.Add "ｇ", "g"
    oDict.Add "ｈ", "h"
    oDict.Add "ｉ", "i"
    oDict.Add "ｊ", "j"
    oDict.Add "ｋ", "k"
    oDict.Add "ｌ", "l"
    oDict.Add "ｍ", "m"
    oDict.Add "ｎ", "n"
    oDict.Add "ｏ", "o"
    oDict.Add "ｐ", "p"
    oDict.Add "ｑ", "q"
    oDict.Add "ｒ", "r"
    oDict.Add "ｓ", "s"
    oDict.Add "ｔ", "t"
    oDict.Add "ｕ", "u"
    oDict.Add "ｖ", "v"
    oDict.Add "ｗ", "w"
    oDict.Add "ｘ", "x"
    oDict.Add "ｙ", "y"
    oDict.Add "ｚ", "z"
　　'大寫(xiě)全角轉(zhuǎn)換
    oDict.Add "Ａ", "A"
    oDict.Add "Ｂ", "B"
    oDict.Add "Ｃ", "C"
    oDict.Add "Ｄ", "D"
    oDict.Add "Ｅ", "E"
    oDict.Add "Ｆ", "F"
    oDict.Add "Ｇ", "G"
    oDict.Add "Ｈ", "H"
    oDict.Add "Ｉ", "I"
    oDict.Add "Ｊ", "J"
    oDict.Add "Ｋ", "K"
    oDict.Add "Ｌ", "L"
    oDict.Add "Ｍ", "M"
    oDict.Add "Ｎ", "N"
    oDict.Add "Ｏ", "O"
    oDict.Add "Ｐ", "P"
    oDict.Add "Ｑ", "Q"
    oDict.Add "Ｒ", "R"
    oDict.Add "Ｓ", "S"
    oDict.Add "Ｔ", "T"
    oDict.Add "Ｕ", "U"
    oDict.Add "Ｖ", "V"
    oDict.Add "Ｗ", "W"
    oDict.Add "Ｘ", "X"
    oDict.Add "Ｙ", "Y"
    oDict.Add "Ｚ", "Z"
    '標(biāo)點(diǎn)符號(hào)
    oDict.Add "，", ","
    oDict.Add "：", ":"
    oDict.Add "；", ";"
    oDict.Add "（", "("
    oDict.Add "）", ")"
    oDict.Add "［", "["
    oDict.Add "］", "]"
    oDict.Add "．", "."
    oDict.Add "＋", "+"
    oDict.Add "％", "%"
    oDict.Add "／", "/"

    
    ' ......
    ' 在這里可以根據(jù)需要增加更多的替換規(guī)則
    ' ......
    
    For Each strKey In oDict.Keys
        Selection.Find.Execute FindText:=strKey, ReplaceWith:=oDict(strKey), Replace:=wdReplaceAll
        Selection.StartOf wdStory
    Next
    
    MsgBox "完成！"
End Sub

另Excel還可試下 =widechar(a1)
Unicode編碼判斷,全角標(biāo)點(diǎn)/數(shù)字及英文字母范圍:FE30--FFE5

全角與半角的區(qū)別及相關(guān)知識(shí)

全角指一個(gè)字符占用兩個(gè)標(biāo)準(zhǔn)字符位置的狀態(tài)。漢字字符和規(guī)定了全角的英文字符及國(guó)標(biāo)GB2312-80中的圖形符號(hào)和特殊字符都是全角字符。
一般的系統(tǒng)命令是不用全角字符的，只是在作文字處理時(shí)才會(huì)使用全角字符。

全角是一種電腦字符，且每個(gè)全角字符占用兩個(gè)標(biāo)準(zhǔn)字符（或半角字符）位置。
每個(gè)普通字符（或半角字符）只占用一字節(jié)的空間（一字節(jié)有8位，共256個(gè)編碼空間），而漢語(yǔ)、日語(yǔ)、及朝鮮文等文字語(yǔ)言的字庫(kù)量遠(yuǎn)大于256個(gè)，所以改用兩個(gè)字節(jié)來(lái)儲(chǔ)存。同時(shí)，也是因?yàn)橹腥枕n等文字的書(shū)寫(xiě)習(xí)慣，如果統(tǒng)一使用全角字符的話，排列起來(lái)也顯得整齊。
為了排列整齊，英文和其它拉丁文的字符和標(biāo)點(diǎn)也提供了全角格式。
通常的英文字母、數(shù)字鍵、符號(hào)鍵都是半角的，半角的顯示內(nèi)碼都是一個(gè)字節(jié)。在系統(tǒng)內(nèi)部，以上三種字符是作為基本代碼處理的，所以用戶輸入命令和參數(shù)時(shí)一般都使用半角。
全角與半角有什么區(qū)別？各在什么情況下使用？
全角占兩個(gè)字節(jié)，半角占一個(gè)字節(jié)。
半角全角主要是針對(duì)標(biāo)點(diǎn)符號(hào)來(lái)說(shuō)的，全角標(biāo)點(diǎn)占兩個(gè)字節(jié)，半角占一個(gè)字節(jié)，而不管是半角還是全角，漢字都還是要占兩個(gè)字節(jié)。
在不支持漢字等語(yǔ)言的計(jì)算機(jī)上只能使用半角標(biāo)點(diǎn)（其實(shí)這種情況根本就不存在半角全角的概念） 。
,.?\'! ……這些是半角的
，。？‘！ ……這些是全角的
對(duì)于大多數(shù)字體來(lái)說(shuō)，全角看起來(lái)比半角大，當(dāng)然這不是本質(zhì)區(qū)別。

在中文輸入法中，切換全角和半角格式的快捷鍵為SHIFT+空格。
全角和半角區(qū)別
全角就是字母和數(shù)字等與漢字占等寬位置的字。
半角就是ASCII方式的字符，在沒(méi)有漢字輸入法起作用的時(shí)候輸入的字母數(shù)字和字符都是半角的。
示例如下：(鍵盤(pán)的輸入是一樣的，輸入法的設(shè)置不同)

在漢字輸入法出現(xiàn)的時(shí)候，輸入的字母數(shù)字默認(rèn)為半角，但是標(biāo)點(diǎn)則是默認(rèn)為全角（如下圖）可以通過(guò)鼠標(biāo)點(diǎn)擊輸入法工具條上的相應(yīng)按鈕來(lái)改變，輸入法名字左邊的按鈕是改變中文和英文輸入的，右邊的圓和半圓是改變字母和數(shù)字的全角半角的，再右邊的“.,”或者"。，"是用來(lái)改變標(biāo)點(diǎn)符號(hào)的中英文設(shè)置（中文標(biāo)點(diǎn)即是全角，英文標(biāo)點(diǎn)即是半角），最右邊的鍵盤(pán)圖標(biāo)是顯示軟鍵盤(pán)用的，可以輸入一些特殊字符或者其它語(yǔ)言里面的字母。