复制带有颜色的单元格 - Excel

Posted 2023-02-24

【中文标题】复制带有颜色的单元格 - Excel

【英文标题】：Copy a cell with its color - Excel

【发布时间】：2016-04-18 07:47:03

【问题描述】：

我有如下数据表

COLA        COLB
ABC          10
             10
             15
XYZ          10
             15
             15

我从 Col A 组合到 Col B 中的多个值的另一个数据中心复制了它。现在我使用下面的步骤用上面单元格中的值填充 Col A 中的所有空白单元格，

选择列 A 转到特殊 -> 选择空白 -> 确定 -> 在单元格 A3 中输入公式为“=A2” -> ctrl + Enter。

这已将上面单元格中的所有值复制到 Col A 中的所有空白单元格中。

但如果空白单元格突出显示，我希望空白单元格也从父单元格复制颜色。

如何在excel中做到这一点？

干杯！！

【参考方案1】：

试试下面的代码

Sub test()
    lastrow = Range("B" & Rows.Count).End(xlUp).Row
    For i = 2 To lastrow
        If Cells(i, 1) = "" Then
            If Cells(i - 1, 1).Interior.ColorIndex > 0 Then
                Cells(i, 1) = Cells(i - 1, 1)
                Cells(i, 1).Interior.Color = Cells(i - 1, 1).Interior.Color
            Else
                Cells(i, 1) = Cells(i - 1, 1)
            End If
        End If
    Next i
End Sub

【讨论】：

感谢您的代码。我应该如何以及何时使用它？用值替换空格后？

将上面的代码放在Module中，进入工作表按ALT+F8，选择要运行的测试宏

太棒了！！谢谢！