如何用VBA实理：筛选B列的值是"1671" Or "1691" Or "1731" Or "1736"的资料

在VBA（Visual Basic for Applications）中，你可以使用Excel的`AutoFilter`功能来筛选满足特定条件的行。如果你想筛选B列的值为"1671", "1691", "1731", 或 "1736"的资料，可以按照以下步骤操作：

1. 首先，确保你当前的工作表处于活动状态，并且B列是可见的。

2. 在VBA编辑器中（可以通过按下Alt + F11快捷键打开），如果你还没有选择任何模块，选择“插入” > “模块”（或按Ctrl + M）来创建一个新的模块。

3. 在新模块中，添加以下VBA代码：

Sub FilterValues()
    Dim ws As Worksheet
    Dim rng As Range
    Dim criteria As Variant
    
    ' 将工作表的引用设置为你想要筛选的活动工作表
    Set ws = ThisWorkbook.ActiveSheet ' 如果你不确定哪个工作表是活动的，可以用Worksheets("Sheet1")替换

    ' 定义筛选条件
    criteria = Array("1671", "1691", "1731", "1736")
    
    ' 选择B列
    Set rng = ws.Columns("B")

    ' 应用筛选
    rng.AutoFilter Field:=1, Criteria1:=criteria, Operator:=xlOr
End Sub

4. 点击工具栏上的`运行`按钮（或按F5）来执行这段代码，它会立即筛选出B列包含上述任意一个值的行。

5. 完成筛选后，你可以在Excel的视图中看到筛选结果，如果需要取消筛选，只需点击数据选项卡下的“清除筛选”按钮。

相关问题：
1. 如何在VBA中引用工作表？
2. VBA中的Array有什么作用？
3. `xlOr`是什么意思？