VBA代码将一个单元格的条件格式复制到未指定范围的单元格

Posted 2021-04-17

我正在寻找有关条件格式的VBA代码的帮助。我正在寻找的是我的单元格A1到B2的复制格式，直到行的结尾（即B2：B到lastrow）

我尝试了以下但我知道这只会格式化B2细胞。有人可以帮忙吗？

Sub FormatPainter()

Range("A1").Copy

Range("B2").PasteSpecial Paste:=xlPasteFormats
Application.CutCopyMode = False

End Sub

答案

Sub FormatPainter()
    Range("A1").Copy
    Range("B2", Cells(2, Columns.Count).End(xlToLeft)).PasteSpecial Paste:=xlPasteFormats
    Application.CutCopyMode = False
End Sub

另一答案

无论如何，我尝试了以下代码，它的工作原理。

Sub FormatPainter()
    Range("A1").Copy
    Range("B2:B" & Cells(Rows.Count, 2).End(xlUp).Row).PasteSpecial Paste:=xlPasteFormats
    Application.CutCopyMode = False
End Sub

谢谢你的时间和支持:)