在 Excel 表格 (ListObject)，當我將它們翻錄到光碟以在 Plex 中使用時，我已經開始跟蹤數百部電影及其狀態。這張桌子沒什么特別的。它存盤您期望的內容，例如翻錄檔案夾、Plex 媒體檔案夾、電影名稱、發行年份、我存盤原始光碟檔案副本的備份檔案夾等。我在創建作業簿之后我已經拍了幾百部電影，讓追蹤變得更容易。由于在創建作業簿之前我的方法不一致，我現在需要在作業簿中進行一些清理。我想使用 VBA 來做這件事，因為手動更正會很乏味、容易出錯并且需要很長時間。我有一個我相信會起作用的演算法，
這里的任何指導將不勝感激！謝謝
uj5u.com熱心網友回復：
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
輸入“我沒有隱藏！” 對于每個可見行，進入該表的第三列。
轉載請註明出處，本文鏈接：https://www.uj5u.com/qiye/377720.html
下一篇：計算回圈中的迭代次數