☰

使用 ms-excel 将背景颜色从一个单元格复制到单独工作表中的单元格？

tag-icon • tag-icon microsoft-excel vba
使用 ms-excel 将背景颜色从一个单元格复制到单独工作表中的单元格？

我想将背景颜色（例如工作表 A 单元格 A1）复制到工作表 B A1。

单元格 A1 正在使用条件格式，我可以简单复制，但不能启用条件格式。

以下是代码

Dim varTemp As Variant

varTemp = Worksheets("Summary").Range("F15:F21").Formula
Worksheets("People").Range("G3:G9").Copy
Worksheets("Summary").Range("F15:F21").PasteSpecial xlPasteAllMergingConditionalFormats
Worksheets("Summary").Range("F15:F21").Formula = varTemp

当我运行 VB 时，它只是选择目标单元格并要求我粘贴结果。因此，左下角的状态栏视频

答案1

下面的代码对我有用，它将单元格（背景）颜色复制到不同工作表中的其他单元格中。

Sub copyFormat()
    Worksheets("Sheet1").Activate
    Range("a1:b1").Copy
    Worksheets("Sheet2").Activate
    Range("a1:b1").PasteSpecial (xlPasteFormats)
End Sub

相关内容