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

靜思自在 : 【時間如鑽石】時間對一個有智慧的人而言，就如鑽石般珍貴；但對愚人來說，卻像是一把泥土，一點價值也沒有。