Question

请帮助我了解如何从特定单元格复制颜色，而不是条件格式。

例如

我的范围A1和A2是合并的单元格，红色并且有一些值，我只需要将红色复制到范围B1和B2，它们具有一些不同的值。是否有任何条款来满足它？

我试过

Range("A1:A2").Copy

Range("B1:B2").PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False

但这将复制粘贴并合并单元格B1和B2

Answer 1

复制A1：A2，然后直接粘贴到新的ms-word文档中。然后再次从ms-word复制此内容并将其粘贴到excel中的任何位置（例如C1：C2）。现在，从C1：C2复制格式，并按照要求的范围粘贴到B1：B2。立即删除C1：C2。在这种情况下，我就是这样！

Answer 2

如果需要的话，我将创建一个函数来检测背景色（.Interor），并将这些值存储为“复制的颜色”。

获取所需单元格的RGB值的函数示例：

Function getRGB(rcell) As String
    Dim colorVal As String

    colorVal = Right("000000" & Hex(rcell.Interior.Color), 6)
    getRGB = Right(colorVal, 2) & Mid(colorVal, 3, 2) & Left(colorVal, 2)
End Function

Answer 3

复制到word文档的问题，去掉图形但保留颜色并粘贴回excel。工作得很好。这个世界大多数时候都需要简单的解决方案。

复制颜色但不是条件格式

3 个答案: