EntireRow.Delete正在影響我的條件格式範圍

我正在尋找刪除行，但沒有影響我應用於工作表的條件格式範圍。我希望我的CF範圍保持不變（例如$ A $ 1：$ A $ 5000），但是當我的代碼刪除一行時，第二個數字（5000）會減少一個，當我希望它保持不變時。無論如何，我可以刪除我的行沒有它影響CF？EntireRow.Delete正在影響我的條件格式範圍

我也知道每次運行宏時我都可以將條件格式應用到工作表中，但我寧願不經過將〜20 CF場景重寫爲此宏的VBA中的麻煩if我可以避免它一起改變。下面是我的循環，其通過行步驟並刪除它們是否符合標準：

ActiveWorkbook.Worksheets("Master Sheet").Activate 
Last = Cells(Rows.Count, "R").End(xlUp).Row 

    For i = Last To 1 Step -1 
     If (Cells(i, "R").Value) = "Business" Then 
      Cells(i, "A").EntireRow.Delete 
     End If 
    Next I

我認爲一個替代的解決方案是通過我的所有的CF被設置爲一個簡單的循環添加到循環並將它們拖到拉斯特羅。這會是一個可行的選擇嗎？

來源

2017-07-28 dwirony

您可以使用索引在所有的CF的引用：'$ A $ 1：$ A $ 5000' ='INDEX（$ A：$ A，1）：INDEX（$ A：$ A，5000）' –

也許用這個範圍來定義你的CF？範圍（「A：A」），因爲這將適用於整個列。 – braX

@braX對不起，我上面的例子很差，我不能使用A的整個列，因爲有幾個標題行迫使我在A4開始，它不會讓我選擇'$ A $ 4：$ A '作爲選項 – dwirony

這種快速循環應該在工作表上改變每CFR的終止行5000假定他們在排發車1

With ActiveWorkbook.Worksheets("Master Sheet").Cells 
    For cfr = 1 To .FormatConditions.Count 
     With .FormatConditions(cfr) 
      If .AppliesTo.Cells(.AppliesTo.Cells.Count).Row < 5000 Then 
       .ModifyAppliesToRange Range:=.AppliesTo.Cells(1).Resize(5000) 
      End If 
     End With 
    Next cfr 
End With

來源

2017-07-28 18:25:46 Jeeped

EntireRow.Delete正在影響我的條件格式範圍

回答

相關問題