篩選工作表數據使用VBA

Question

使用：Excel 2007中

問題： 電子表格包含許多列和行數據。一列稱爲「概率」，包含0％到100％之間的百分比值。如何寫一個宏，有條件地刪除一行給它有一個「概率」值是小於 50％？

更新：這不能簡單地通過錄制宏來完成，因爲百分比值隨每次新數據上傳而變化。

謝謝！

Answer 1

例如，如果你的概率數據是活動工作表的A列，你可以使用自動篩選

1. 手動，自動篩選列，加< 50％的標準，然後刪除結果

2. 運行代碼相同的方法如下

   Sub QuickCull() 
       Application.ScreenUpdating = False 
       With ActiveSheet 
        .AutoFilterMode = False 
        .Columns("A").AutoFilter Field:=1, Criteria1:="<50%" 
        .AutoFilter.Range.Offset(1, 0).EntireRow.Delete 
        .AutoFilterMode = False 
       End With 
       Application.ScreenUpdating = True 
   End Sub