返回列表 上一主題 發帖

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

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

TOP

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

TOP

        靜思自在 : 盡多少本份,就得多少本事。
返回列表 上一主題