Ссылки на ячейки 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