首先我要謝謝這邊的高手們 讓我更進一步
目前這樣改可以找到我要的資料
但只能一次 想要寫個迴圈
目前按下一筆從a=3跑到a=4 這是我以下的寫法
不再跑到最後一筆符合的資料
但只能寫一次
我有試過a=selection.row但沒反應也用過Tar.row(目前那行)
都卡在a=3
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
希望高手不吝指教小弟
小弟也來學習
代碼中的一些條件沒出現,所以好像無從判斷您的問題"不再跑到最後一筆符合的資料"
提供參考
建議是否可以把檔案PO上來