- 帖子
- 1572
- 主題
- 16
- 精華
- 2
- 積分
- 1521
- 點名
- 0
- 作業系統
- xp
- 軟體版本
- office 2003
- 閱讀權限
- 150
- 性別
- 男
- 註冊時間
- 2010-5-1
- 最後登錄
- 2016-1-13

|
2#
發表於 2013-10-9 20:35
| 只看該作者
[i=s] 本帖最後由 oobird 於 2013-10-9 20:36 編輯 [/i]
方法有許多,舉一例:
Sub test1()
Range("A1:D10") = Evaluate("A1:D10" & "/100")
Range("A1:D10").Replace ".*", "", xlPart
End Sub |
|