|
Sub 按鈕5_Click()
Sheets("工作表2").Range("a2:I100").ClearContents '清除資料
Worksheets("工作表1").Activate
MA1 = Range("A2:c" & [A2].End(4).Row)
MB1 = Cells(2, "L")
MB2 = Cells(2, "M")
MB3 = Cells(2, "N")
K = 2
'===========================================
SrhKey = MB1 & MB2 & MB3
For r = 2 To UBound(MA1) + 1
If Cells(r, 1) >= MB1 And Cells(r, 1) <= MB2 And Cells(r, 2) = MB3 Then '搜尋
'===========================================
For J = 1 To 8 '
Sheets("工作表2").Cells(K, J) = Cells(r, J + 1)
Next
K = K + 1
End If
Next
Worksheets("工作表2").Activate
End Sub
祝順心,南無阿彌陀佛!
|
|