2017-04-04 85 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