写一段vba代码 获取excel指定数据列，筛选的选项

以下是一个简单的 VBA 代码示例，用于获取 Excel 表格中指定列的数据，并进行筛选：

Sub FilterData()
    Dim ws As Worksheet
    Dim lo As ListObject
    Dim colIndex As Integer
    Dim filterValue As String
    
    ' 设置工作表和数据列索引
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    Set lo = ws.ListObjects("Table1")
    colIndex = 2 ' 第二列
    
    ' 获取筛选条件
    filterValue = InputBox("请输入筛选条件：")
    
    ' 筛选数据
    lo.Range.AutoFilter Field:=colIndex, Criteria1:=filterValue
End Sub

上述代码首先使用 `Worksheet` 和 `ListObject` 对象获取工作表和数据表格，然后指定需要筛选的数据列索引为 2（即第二列），并使用 `InputBox` 方法获取用户输入的筛选条件。最后，使用 `AutoFilter` 方法对数据进行筛选，其中 Field 参数设置为列索引，Criteria1 参数设置为筛选条件。