用sheet"company"的A列的每個單元格的內容對sheet"adj"B列進行分別進行篩選,用VBA怎麼表達

以下是一个示例VBA代码，实现了根据“company”工作表A列的每个单元格内容对“adj”工作表B列进行筛选的操作：

Sub FilterByCompany()
    Dim companySheet As Worksheet
    Dim adjSheet As Worksheet
    Dim lastRow As Long
    Dim i As Long
    
    '获取“company”和“adj”工作表的引用
    Set companySheet = Worksheets("company")
    Set adjSheet = Worksheets("adj")
    
    '获取“company”工作表最后一行的行号
    lastRow = companySheet.Cells(companySheet.Rows.Count, "A").End(xlUp).Row
    
    '循环遍历“A”列中的每个单元格
    For i = 1 To lastRow
        '获取当前单元格的内容
        Dim company As String
        company = companySheet.Cells(i, "A").Value
        
        '在“adj”工作表的“B”列中进行筛选
        adjSheet.Range("B:B").AutoFilter Field:=1, Criteria1:=company
        
        'TODO: 在这里添加你的处理代码，例如复制筛选结果到另一个工作表
        
        '清除筛选
        adjSheet.Range("B:B").AutoFilter
    Next i
End Sub

这段代码的基本思路是，使用`For`循环遍历“company”工作表的“A”列中的每个单元格，获取其内容并将其作为筛选条件应用于“adj”工作表的“B”列。你可以在`TODO`注释下方添加你的处理代码，例如将筛选结果复制到另一个工作表中。最后，使用`AutoFilter`方法清除筛选。