我正在嘗試清除表“A” - 基于表“A”中存在的行數
例如，如果表“A”中存在少于 2 行，則清除表“A”中的所有內容
with sheets("DOC").ListObjects("A")
if A.Rows.Count > 2 Then
A.databodyrange.ClearContents
ENDif
ENDwith
我肯定知道這是錯誤的，因為它一直給我一個錯誤。想知道如何解決這個問題或者是否有更好的方法。
任何幫助將不勝感激。
uj5u.com熱心網友回復：
AListObject有一個ListRows性質：
With Sheets("DOC").ListObjects("A")
If .ListRows.Count < 2 Then
.DataBodyRange.ClearContents
End If
End With
此外，如果要檢查少于 2 行，請使用<，而不是>。
但是，如果一個表有 0 .ListRows，那么它.DataBodyRange就是Nothing。因此，最好檢查它是否只有 1 行。
With Sheets("DOC").ListObjects("A")
If .ListRows.Count = 1 Then
.DataBodyRange.ClearContents
End If
End With
轉載請註明出處，本文鏈接：https://www.uj5u.com/shujuku/508004.html
下一篇：在列中拆分多行文本