儲存內的　１　一　都輚成半型的１ - Excelㄧ般區

[發問] 儲存內的　１　一　都輚成半型的１

　頭銜: 街友一族

論壇貢獻勳章

1^# 跳轉到 »

發表於 2011-9-20 21:52 | 顯示全部帖子

Sub yy()
For Each c In ActiveSheet.UsedRange
c.Value = StrConv(c.Value, vbNarrow, LocaleID)
Next
End Sub

　頭銜: 街友一族

論壇貢獻勳章

2^#

發表於 2011-9-21 22:27 | 顯示全部帖子

難度頗高，例如
二十一 = 21 ~十替換為空
十五 = 15 ~十替換為1
十 = 10 ~十替換為10

靜思自在 : 稻穗結得越飽滿，越會往下垂，一個人越有成就，就要越有謙沖的胸襟。