【问题标题】:Copy a cell with its color - Excel复制带有颜色的单元格 - 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中做到这一点?

干杯!!

【问题讨论】:

    标签: vba 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,选择要运行的测试宏
    • 太棒了!!谢谢!
    猜你喜欢
    • 1970-01-01
    • 2023-01-28
    • 2021-06-13
    • 1970-01-01
    • 1970-01-01
    • 1970-01-01
    • 2013-03-09
    • 1970-01-01
    相关资源
    最近更新 更多