標題: [發問] 請問 find 如果找不到，可以略過錯誤嗎，謝謝 [打印本頁]

---

作者: wufonna    時間: 2019-7-27 13:24     標題: 請問 find 如果找不到，可以略過錯誤嗎，謝謝

1. Sub Bluechip()
   
2.   Dim S As String, i, j
   
3.    Sheets("股票主頁").Cells.Clear
   
4.    For i = 1 To Sheets("績優股").Range("A" & Sheets("績優股").Rows.Count).End(xlUp).Row
   
5.     S = Sheets("績優股").Cells(i, 1).Value
   
6.     On Error Resume Next
   
7.     j = Sheets("全部號碼").Range("A:B").Find(S).Row '找不到會錯誤
   
8.     Sheets("股票主頁").Cells(i, 1).Resize(1, 3).Value = Sheets("全部號碼").Cells(j, 1).Resize(1, 3).Value
   
9.    Next
   
10.   'MsgBox i
    
11. End Sub

複製代碼

---

作者: 准提部林    時間: 2019-7-27 17:47

Sub Bluechip()
Dim xR As Range, xF As Range, xE As Range
Sheets("股票主頁").Cells.Clear
Set xE = [股票主頁!A1]
For Each xR In Range([績優股!A1], [績優股!A65536].End(xlUp))
    Set xF = [全部號碼!B:B].Find(xR.Value, Lookat:=xlWhole)
    If xR = "" Or xF Is Nothing Then GoTo 101
    xE.Resize(1, 3) = xF(1, 0).Resize(1, 3).Value
    Set xE = xE(2)
101: Next
End Sub


========================

---

作者: wufonna    時間: 2019-7-27 20:35

回復 2# 准提部林


    謝謝 大大 ^_^

---

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