儲存內的　１　一　都輚成半型的１ - 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

靜思自在 : 【蒙蔽的自由】人常在什麼都可以自由自在的時候，卻被這種隨心所欲的自由蒙蔽，虛擲時光而毫無覺知。