如何把全形"句號．"改為半形"句號."?

mhl9mhl9

如何把全形"句號．"改為半形"句號."?
x=strconv("abcd．abcd",vbnarrow)改不了,不知什麼問題,謝謝各位幫忙

infoverdad

回復 1# mhl9mhl9

猜測是否因為您的原文有雙引號? 如果是要用兩個雙引號才會正確
例如:
=SUBSTITUTE("x=strconv(""abcd．abcd"",vbnarrow)","．",".")
=ASC("x=strconv(""abcd．abcd"",vbnarrow)")

請參考論壇中的 http://forum.twbts.com/thread-7533-1-1.html

mhl9mhl9

回復 2# infoverdad
謝謝2#
我沒有表達清楚,我有90萬條字串([A1:A900000]),有些字串是一樣的,但因為標點符號有的用全形,有的用半形,所以必須統一用半形.
[a1]=strconv([a1],vbnarrow),[a1]里全形標點符號都改為半形了,唯獨全形句號,不會被改成半形句號,不知道什麼原因,尋求解決方法,謝謝

faye59

回復 3# mhl9mhl9


    試試看！

1. Sub ex()
   
2. For Each aa In Sheets("工作表1").Range([A1], [A1].End(xlDown))
   
3.     aa.Offset(, 0) = StrType(aa)
   
4. Next
   
5. End Sub
   
6. Function StrType(Mystr)
   
7. For i = 1 To Len(Mystr)
   
8.     k = AscW(Mid(Mystr, i))
   
9.     Select Case k
   
10.     Case 12290 '全型句號
    
11.         Textstring = Textstring & "."
    
12.     Case Else
    
13.         Textstring = Textstring & Mid(Mystr, i, 1)
    
14.     End Select
    
15. Next
    
16. StrType = Textstring
    
17. End Function

複製代碼

mhl9mhl9

回復 4# faye59
(1)首先道歉,我的命題是錯的: x=strconv(y,vbnarrow)>>>y里所有全形標點符號都改成半形標點符號,結果x是正確的答案.
之所以我會提出錯誤命題是因為我收集到的"字串"里包含的不是"全形標點．"，不知道是什麼符號貌似全形句號,所以strconv函數不能把它轉為半形句號.
(2) 我現在使用這個方法>>>>  r1.Replace "．", ".", xlPart>>>>r1=[a1:a100000],10萬個字串里不明符號．全部改為.了