Excel巨集應用-篩選

不太會用公式
但是我會用巨集阿哇哈哈哈
留作紀錄下次不用重打了

---

Sub 篩選()
Dim R, C As Integer
R = 2: C = 6:
Do While Cells(R, C).Value <> ""
If Cells(R, C).Value <> "桃園專車" And Cells(R, C + 1).Value <> "桃園專車" Then
Rows(R).Delete Shift:=xlUp
Else: R = R + 1
End If:
Loop:
End Sub