excel - 如何将我的第三个可见单元格定义为 B 列中的变量

Question

我想在我的过滤列 B 中定义第三个可见单元格的变量。
我的第三个可见单元格的位置可以根据我的过滤器中选择的值而改变。



在我的示例中，第 3 个单元格是 B16，但并不总是这个值。如果我设法在 B 列中定义我的第三个可见单元格的变量，我将能够通过此变量更改我的 VBA 代码中的 B16。

Sub jfdjdgfjg()
    Dim LastRow As Long
    LastRow = ActiveSheet.Range("B" & Rows.Count).End(xlUp).Row
    ActiveCell.Formula = "= SUM(B16:B" & LastRow & ")" 'Sum until lastrow
End Sub

Answer 1

这是一种方法

Option Explicit

Sub thirdviscell()
Dim LRow As Long, i As Long, counter As Long
Dim thirdcell As Range

With ThisWorkbook.Sheets(1)
    LRow = .Cells(.Rows.Count, "A").End(xlUp).Row

    For i = 2 To LRow 'assuming a header row not to be counted
        If .Rows(i).EntireRow.Hidden = False Then counter = counter + 1
        If counter = 3 Then 
            Set thirdcell = .Cells(i, "B")
            Exit For
        End If
    Next i
End With

MsgBox "The third visible cell's address is " & thirdcell.Address(0,0), vbInformation

End Sub