找到所有實例，並隱藏行

Question

我有一列，其可以採取x或0值：

x 
x 
0 
0 
x 
0 

我要尋找一個快速宏將發現所有x價值和隱藏這些行。我可以通過使用For each cell .. next來做到這一點，但我認爲使用數組或其他東西必須有更快的方式。

Answer 1

您可以使用SpecialCells()函數查找文本值。然後，只隱藏這些行。

假設你要檢查列A，這應該做的伎倆：

Range("A:A").SpecialCells(xlCellTypeConstants, xlTextValues).EntireRow.Hidden = True 

編輯：每@下面

Jeeped的評論。如果你使用的公式和你有你的公式回報0代替"0"，那麼這應該工作：

Range("A:A").SpecialCells(xlCellTypeFormulas, xlTextValues).EntireRow.Hidden = True 

Answer 2

以下假定A1中的列標題標籤。

with activesheet 
    if .autofiltermode then .autofiltermode = false 
    with .range(.cells(1,1), .cells(rows.count, 1).end(xlup)) 
     .autofilter field:=1, criteria1:="x", VisibleDropDown:=False 
    end with 
end with 

這只是一個AutoFilter Method與隱藏的小箭頭。您可以使用常規取消隱藏命令或數據►取消隱藏行。►排序&過濾器►清除或簡單地關閉自動過濾器。