excel vba将上区域已经填充的复制填充到下区域为红色

Question

http://pan.baidu.com/s/1dDrmTSd
1。K9：AL最后第11行(这里部分数据被隐藏了)
顶第9行至最下11行（从下往上数）：数据源区域
2。将数据源区域同列已经填充颜色的单元，复制填充“颜色为红色”到下面区域（同列）
上与下区域内容相同时，同列才复制其单元颜色为红色

Answer 1

不是给你做好了吗？这分也给我吧。追问

没做啊？你看一下

追答

你执行Macrol1即可。

Sub Macro1()

Dim i As Integer, j As Integer, l As Integer, m As Integer

l = Cells(Rows.Count, "k").End(xlUp).Row    '求K列最后一行行号

For j = 11 To 38        '从K列到AL列

    For i = 9 To l - 11     '从9行到倒数11行

        If Cells(i, j).Interior.ColorIndex <> -4142 Then        '如果原区域数据有颜色

            For m = l - 8 To l      '目标区域

                If Cells(m, j) = Cells(i, j) Then       '数值相同

                    Cells(m, j).Interior.ColorIndex = 3     '填红色

                End If

            Next

        End If

    Next

Next

End Sub

本回答被提问者采纳