VBA读取单元格可见行数问题

发布网友发布时间：2024-10-20 13:29

共1个回答

热心网友时间：2024-11-02 10:19

Sub test()
Dim rng As Range
With ActiveSheet
    For Each rng In .Range("A:A").Cells
        If rng <> "" And rng.EntireRow.Hidden = False Then n = n + 1
    Next
    .Range("B3") = n
End With
End Sub

对A列非空单元格及非隐藏行计数，写入同表B3单元格

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com