自动筛选后的Excel VBA单元格引用

Question

我有3批自动过滤器可以正常工作。在过滤器之后，我需要知道如何引用一个单元格（在这种情况下，是列D中的第一个单元格），因为一旦过滤后，此特定列在所有行中都是公用的。

如何引用此值并将其分配给变量xCellD？

Dim xcount As Integer
Dim ws1 As Worksheet
Dim xCellD As String


Set ws1 = Sheets("Main")


On Error Resume Next

'ProjectID
Selection.AutoFilter Field:=2, Criteria1:=TextBox1.Value

'City
Selection.AutoFilter Field:=6, Criteria1:=ComboBox1.Value

'Location Type
Selection.AutoFilter Field:=5, Criteria1:="Test"

xcellD = the very first cell in Column D

Answer 1

您可以通过…获取值

1. Resize和Offset列D中排除标题。
2. 使用SpecialCells(xlCellTypeVisible)获取所有可见的单元格
3. 访问第一个可见单元格

例如使用

xcellD = Columns("D").Resize(Columns("D").Rows.Count - 1).Offset(1).SpecialCells(xlCellTypeVisible).Cells(1).Value