☰

如何使用 VBA Excel 中的 Set 将过滤后的列数据分配给变量？

tag-icon • tag-icon vbscript filter microsoft-excel
如何使用 VBA Excel 中的 Set 将过滤后的列数据分配给变量？

我是 VBA Excel 新手。我正在尝试使用放将过滤列中的一些数据（通过自动过滤）分配给变量（X在这种情况下）。下面显示了表格的代码和图像。

Sub Test()

    Dim X As Variant
    
    Worksheets("Sheet1").Range("B2").AutoFilter _
                                     Field:=2, _
                                     Criteria1:="1"

    With Worksheets("Sheet1")
        Set X = .Range("D3:D" & .Cells(.Rows.Count, "D").End(xlUp).Row)
    End With
   
End Sub

1

过滤工作如我预期的那样。然而，我最终将 D3:D23 范围内的所有未过滤数据设置为X。如何将 D 列的筛选数据分配给X？

相关内容