有没有办法遍历表（listobject）列中的可见单元格？

Question

在 Excel 表 (ListObject) 中，我已经开始跟踪数百部电影及其状态，因为我将它们撕成光盘以在 Plex 中使用。这张桌子没有什么花哨的；它存储您期望的内容，例如翻录文件夹、Plex 媒体文件夹、电影名称、发行年份、我存储原始光盘文件副本的备份文件夹等。我在之后创建了工作簿我已经拍了几百部电影以使跟踪更容易。由于在创建工作簿之前我的方法不一致，我现在需要在工作簿中进行一些清理工作。我想使用 VBA 来做，因为手动更正会很乏味、容易出错并且需要很长时间。我有一个我相信会起作用的算法，但它依赖于遍历过滤表列中可见单元格的能力——我将使用该列来确定是否需要对该行进行任何更正，然后在需要的地方，需要进行更正的列。

如有任何指导，我们将不胜感激！ 谢谢

Answer 1

Sub Test()

Set MyTable = Worksheets("Sheet1").ListObjects("Table1")

With MyTable
    For i = 1 To .DataBodyRange.Rows.Count
        If .DataBodyRange.Rows(i).EntireRow.Hidden = False Then
            [Do Something]
        End If
    Next i
End With

End Sub

将[Do Something] 替换为您想要对可见行执行的操作，例如：

Sub Test()

Set MyTable = Worksheets("Sheet1").ListObjects("Table1")

With MyTable
    For i = 1 To .DataBodyRange.Rows.Count
        If .DataBodyRange.Rows(i).EntireRow.Hidden = False Then
            .DataBodyRange(i, 3).Value = "I'm not hidden!"
        End If
    Next i
End With

End Sub

输入“我没有隐藏！”将每个可见行放入该表的第三列。