excel数据筛选（数组问题）

Question

各位兄弟，请指教下：
是这样的，有两张excel表，表一如下，表二是空表。
表一有数据：
佛山禅城百花大厦M         佛山 城区
禅城沃尔玛购物广场M 禅城 城区
高明新圩独岗          高明 新圩
南海官窑大榄          南海 官窑
三水范湖五溪          三水 范湖
佛山禅城创业大厦M         佛山 城区我想把表一第二列属于  佛山  或者 禅城  的全部内容在表二输出，愿景输出如下：佛山禅城百花大厦M         佛山 城区
禅城沃尔玛购物广场M 禅城 城区
佛山禅城创业大厦M         佛山 城区怎样用代码实现，请高手指点小弟。

Answer 1

Private Sub CommandButton1_Click()
    Dim i As Integer
    Dim j As Integer
    
    j = j + 1
    
    For i = 2 To 200
        If Sheet1.Cells(i, 2) = " 佛山" Or Sheet1.Cells(i, 2) = "禅城" Then
            j = j + 1
            
            Sheet2.Cells(j, 1) = Sheet1.Cells(i, 1)
            Sheet2.Cells(j, 2) = Sheet1.Cells(i, 2)
            Sheet2.Cells(j, 3) = Sheet1.Cells(i, 3)
        End If
    Next i
            
End Sub

Answer 2

Sub yy()
    Dim r%, i%, n%, s$, ar, a()
    r = Sheets("表一").[a65536].End(3).Row
    ar = Sheets("表一").[a1].Resize(r, 2)
    ReDim a(1 To r, 1 To 2)
    For i = 1 To r
        s = Split(ar(i, 2), " ")(0)
        If s = "佛山" Or s = "禅城" Then
            n = n + 1
            a(n, 1) = ar(i, 1)
            a(n, 2) = ar(i, 2)
        End If
    Next
    Sheets("表二").[a1].Resize(n, 2) = a
End Sub