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

【问题标题】：VBA code to copy conditional formating of one cell to unspecified range of cellsVBA代码将一个单元格的条件格式复制到未指定的单元格范围
【发布时间】：2017-03-17 10:47:26
【问题描述】：

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

我尝试了以下方法，但我知道这只会格式化 B2 单元格。有人可以帮忙吗？

Sub FormatPainter()

Range("A1").Copy

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

End Sub

【问题讨论】：

标签： vba formatting conditional

【解决方案1】：

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

【讨论】：

您好，感谢您的回复，但在 .Columns 上出现编译错误
抱歉，“With someworksheet”块内装了太多东西。查看编辑的代码
仍然无法格式化所有包含值的行，但实际上需要格式化的 B 除外。 :(
嗯，你要求粘贴格式“直到行尾”，这就是我的代码所做的
谢谢。对于那些想要使用多个彼此不相邻的单个单元格的人，以下内容可能会有所帮助；对于第 3 行，请执行以下操作： Range("C3,G2,G3").PasteSpecial Paste:=xlPasteFormats

【解决方案2】：

不管怎样，我尝试了下面的代码并且成功了。

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

感谢您的时间和支持 :)

【讨论】：