2017-04-04 112 views
0

我得到了與應用於細胞的某些範圍(例如$B$4:$F$5。)一些條件格式的電子表格。我設置了一個宏來添加一個新行,在當前最後一行中複製格式+公式。問題是,每次添加新行時,都會創建一個僅影響新行的附加條件格式規則。Excel的VBA:編輯現有的條件格式規則的新行

如何使用VBA來擴展我已經設置了這個條件 - 使規則影響$B$4:$F$6

+0

當然,這是可能的。你有什麼嘗試?是/否和「請給我一些XYZ代碼」的問題在這個網站上做得不太好。你讀過[問]嗎? –

+0

你運行的是什麼版本的excel?在Excel 2010中修復了成千上萬個幾乎相同的複製CFR的錯誤,並且(我相信)修復了xl2007的Service Pack。而** no **則無法調整應用範圍而不破壞原始圖像並重新創建。 – Jeeped

+1

@Jeeped「破壞原有並重新創建它」 - >因此可能......至少,如果你只考慮結果,而不是手段去那裏;-)使用 –

回答

1

填寫並刪除常量,而不是複製和粘貼特殊的值和格式。這應該明確地將CFR延伸到新的行。

With Worksheets("sheet1") 
    With .Range(.Cells(4, "B"), .Cells(.Rows.Count, "F").End(xlUp)) 
     .Offset(.Rows.Count - 1, 0).Resize(2, .Columns.Count).FillDown 
     On Error Resume Next 
     'Debug.Print .Offset(.Rows.Count, 0).Resize(1, .Columns.Count).Address(0, 0) 
     .Offset(.Rows.Count, 0).Resize(1, .Columns.Count).SpecialCells(xlCellTypeConstants, 23).ClearContents 
     On Error GoTo 0 
    End With 
End With