復制顏色但不是條件格式

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

如果需要單元格，我將創建一個函數來檢測背景色 (.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 2

復制 A1:A2 並直接粘貼到新的 ms-word 文檔中。 然后再次從 ms-word 復制它並將其粘貼到 excel 中的任何位置（比如 C1:C2）。 現在從 C1:C2 復制格式並粘貼到 B1:B2 中提到的所需范圍。 現在刪除 C1:C2。 這就是我在這種情況下的處理方式！！

Answer 3

復制到word文檔的問題，刪除圖形但保留顏色並粘貼回excel。 工作得很好。 這個世界大多數時候需要簡單的解決方案。