標題: [發問] 用 Find 找小於等於(<=)某值 的 Range [打印本頁]

---

作者: Scott090    時間: 2015-3-15 07:32     標題: 用 Find 找小於等於(<=)某值 的 Range

一直用陣列的方式一個個地找
就沒能找出用 Find 的方法如何達到目的

請達人高手 不吝賜知

---

作者: GBKEE    時間: 2015-3-15 11:32

回復 1# Scott090
Find 方法的參數 LookAt  選擇性的 Variant。可為下列 XlLookAt 常數之一：xlWhole 或 xlPart。
Find 方法是搜尋字串不是數值,所以 Find 無法找小於等於(<=)某值 的 Range

---

作者: lpk187    時間: 2015-3-15 11:54

回復 1# Scott090


尋找<=某值不一定要用.Find，方法有很多下面說明則是利用VBA，Find的說明範例修改的給你參考

1. Public Sub Find_1()
   
2. A = 5
   
3. N = 1
   
4. With Worksheets(1).Range("a1:a" & Cells(Rows.Count, "a").End(xlUp).Row)
   
5.     Set c = .Find("*", LookIn:=xlValues, SearchDirection:=2)
   
6.     If Not c Is Nothing Then
   
7.         firstAddress = c.Address
   
8.         Do
   
9.             If c <= A Then
   
10.                 Cells(N, "D") = c.Value
    
11.                 N = N + 1
    
12.             End If
    
13.             Set c = .FindNext(c)
    
14.         Loop While Not c Is Nothing And c.Address <> firstAddress
    
15.     End If
    
16. End With
    
17. End Sub

複製代碼

---

作者: Scott090    時間: 2015-3-15 15:01

回復 2# GBKEE

謝謝大師指明了要點
數值文字化後，用 xlPart 應可以找到 .....

---

作者: Scott090    時間: 2015-3-15 15:03

回復 3# lpk187

另闢蹊徑達到目的

佩服，謝謝

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)