- 帖子
- 4901
- 主題
- 44
- 精華
- 24
- 積分
- 4916
- 點名
- 258
- 作業系統
- Windows 7
- 軟體版本
- Office 20xx
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台北
- 註冊時間
- 2010-4-30
- 最後登錄
- 2024-11-28
              
|
2#
發表於 2014-4-30 09:43
| 只看該作者
本帖最後由 Hsieh 於 2014-4-30 23:47 編輯
回復 1# t8899
試著取出H121值的資料型態看看
這問題你之前應該已經問過
用Application.Match就能找到該位置
若一定要用FIND就用值來找- Sub test()
- Dim ang As Range, a$
- [H21:H350] = [H21:H350].Value '儲存格內寫入值(去公式)
- a = Application.Large(Workbooks("good.xls").Sheets("She5555555555555et6").Range("h21:h250"), 1)
- [a11] = TypeName(a)
- [a10] = a
- Set ang = Workbooks("good.xls").Sheets("She5555555555555et6").Range("h21:h250").Find(What:=a, LookAt:=xlWhole, LookIn:=xlFormulas, SearchOrder:=xlByColumns)
- [a12] = TypeName(ang)
- [H21:H350] = "=IF(RC[3]="""","""",RC[4]-RC[3])" '還原公式
- End Sub
|
|
發表於 2014-4-29 20:09
| 
