If [c1].Value = "" Then MsgBox "填寫key", , "提示 Exit Sub"
Sheets("search").Rows("4:10000").ClearContents
Dim rnga As Range, rw%, arr
With Sheets("search")
For Each rnga In Sheets("data").UsedRange
Set rnga = rnga.Find([c1])
r = .UsedRange.Rows.Count + 1
If Not rng Is Nothing Then
.Cells(r, 1).Resize(1, 6).Value = Sheets("data").Cells(rnga.Row, 1).Resize(1, 6).Value
End If
Next
因數據有數千筆，若查詢結果數據過多，會卡很久，請問如何加快？
If InStr(mystr, Sheets("search").[C1]) > 0 Then
s = s + 1
ReDim Preserve Ar(s)
Ar(s) = Split(mystr, Chr(10))
End If
問題：有看過 s = s + 1放在這個位置，但本代碼出現型態不符，差異為何？
另請教 若改成在data工作表直接查詢，以事件方式，做到隱藏(不是查詢資料），縮放功能。
發表於 2019-3-7 11:56
| 
