- 帖子
- 766
- 主題
- 256
- 精華
- 0
- 積分
- 1035
- 點名
- 0
- 作業系統
- windows 11
- 軟體版本
- OFFICE2021
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2011-5-30
- 最後登錄
- 2026-10-2
|
回復 t8899
稍看你得程式碼：
Set A = .Range("I" & ppp & ":I" & qqq).Find(Application. ...
hugh0620 發表於 2014-9-29 21:59 
謝謝
我已經找到問題
I 欄 跟 S 欄格式的問題
用 以下程序可解決
Dim rng As Range
For Each rng In Range("i3:i60")
abc = rng
rng = CLng(abc)
Next
For Each rng In Range("s3:s60")
abc = rng
rng = CLng(abc)
Next |
|
發表於 2014-9-27 21:26
| 
