VBA 尋找符合下一筆的資料

vba 表單下一筆查詢

john083423 2019-03-26 11:59:46 ‧ 2235 瀏覽

分享至

首先我要謝謝這邊的高手們讓我更進一步
目前這樣改可以找到我要的資料
但只能一次想要寫個迴圈
目前按下一筆從a=3跑到a=4 這是我以下的寫法
不再跑到最後一筆符合的資料
但只能寫一次
我有試過a=selection.row但沒反應也用過Tar.row（目前那行）
都卡在ａ＝３

Sheets("異動檔").Activate
b = Sheets("異動檔").Range("C2").End(xlDown).Row
Range("B1").Select
a = 3
Do
a = a + 1
If a > b Then
Exit Do
End If
T1.Text = Cells(a, "A")
T2.Text = Cells(a, "D")
T3.Text = Cells(a, "B")
T4.Text = Cells(a, "G")
T5.Text = Cells(a, "E")
T6.Text = Cells(a, "H")
Loop Until Cells(a, "B").Offset(1) = "枋寮到加祿站內(施工_南工處)" And Cells(a, "C").Offset(1) = data1.Text And Cells(a, "H").Offset(1) <> T6.Text

希望高手不吝指教小弟