[發問] find 為何 nothing ??

t8899

find 為何 nothing ?? good.rar (48.01 KB)

下載次數: 9

2014-4-29 20:09

Hsieh

回復 1# t8899

    試著取出H121值的資料型態看看
這問題你之前應該已經問過
用Application.Match就能找到該位置
若一定要用FIND就用值來找

1. Sub test()
   
2. Dim ang As Range, a$
   
3. [H21:H350] = [H21:H350].Value '儲存格內寫入值(去公式)
   
4.     a = Application.Large(Workbooks("good.xls").Sheets("She5555555555555et6").Range("h21:h250"), 1)
   
5.     [a11] = TypeName(a)
   
6.      [a10] = a
   
7. Set ang = Workbooks("good.xls").Sheets("She5555555555555et6").Range("h21:h250").Find(What:=a, LookAt:=xlWhole, LookIn:=xlFormulas, SearchOrder:=xlByColumns)
   
8. [a12] = TypeName(ang)
   
9. [H21:H350] = "=IF(RC[3]="""","""",RC[4]-RC[3])" '還原公式
   
10. End Sub

複製代碼