我需要幫助來計算作業表中可見行的數量。在我過濾作業表中的特定 ID 號后，我想計算過濾后可用的可見行數。這樣，如果在應用 vba 過濾后只有標頭可用，它將不會繼續執行后續步驟。但是，我的代碼一直顯示 0 行可用，但事實并非如此……這就是我目前所擁有的：
Set dataRG=ws.Range("A1").CurrentRegion
For n = UBound(wsNames) To LBound(wsNames) Step -1
If IsArray(ccNumbers(n)) Then
dataRG.AutoFilter 7, ccNumbers(n), xlFilterValues
Else
dataRG.AutoFilter 7, ccNumbers(n)
End If
'were all data rows filtered out?
If dataRG.SpecialCells(xlCellTypeVisible).Rows.Count > 1 Then
uj5u.com熱心網友回復：
我需要幫助來計算作業表中可見行的數量。
這樣，如果在應用 vba 過濾后只有標頭可用，它將不會繼續執行后續步驟。
Dim TotalVisibleFilteredRows As Long
With dataRG
TotalVisibleFilteredRows = WorksheetFunction.Subtotal(3, .Range("A1:A" & .Rows.Count))
If TotalVisibleFilteredRows > 1 Then
'
'~~> Do what needs to be done
'
MsgBox "Total Visible Filtered Rows (Incl Header) : " & TotalVisibleFilteredRows & vbNewLine & _
"Total Visible Filtered Rows (Excl Header) : " & TotalVisibleFilteredRows - 1
Else
MsgBox "Only Header is visible"
End If
End With
轉載請註明出處，本文鏈接：https://www.uj5u.com/qukuanlian/536354.html
標籤：擅长VBA循环范围可见的
上一篇：添加新列時如何自動填充公式
下一篇：有沒有辦法縮短excel公式？