[發問] 全型標點改為半型標點

mhl9mhl9

把   海關：海關   改為        海關:海關       
用vb改變資料庫里資料里全型標點都改為半型標點
我分不清什麽功能會區別全型半形,只能不得意而求其次,把他們統一了,可不可以這樣做?
請教各位版主,謝謝

GBKEE

回復 1# mhl9mhl9

1. Option Explicit
   
2. Sub Ex()
   
3.     ActiveSheet.Cells.Replace "海關：海關", "海關:海關", xlPart
   
4.     ' ActiveSheet.Cells.Replace "：", ":", xlPart
   
5. End Sub

複製代碼

mhl9mhl9

回復 2# GBKEE

謝謝GBKEE的幫助,我想有沒有改變所有標點的方法,因為分公司上報的產品名稱我要取唯一值,其中有不少名稱是因為標點不同,就成2個品種.
除了標點不同引起唯一值不符合要求,還有prefix"'",前後空格,名稱最後加多一個".",最難搞算是標點符號,所以我想先搞定它,其他再想方法逐一解決.

oobird

1. For Each c In ActiveSheet.UsedRange
   
2. c.Value = StrConv(c, vbNarrow)
   
3. Next

複製代碼

mhl9mhl9

回復 4# oobird

真是我所需,謝謝,10萬格25秒,時間可以接受吧,thanks