[已解决]求教，用vba代码填充颜色。

yslvictor

条件：
如果J1等于BT列的某一值，在U1填充红色;
如果J2等于BT列的某一值，在U2填充红色;
如果J3等于BT列的某一值，在U3填充红色;
……………………………………………………………
如果Jn等于BT列的某一值，在Un填充红色。
根据条件填充颜色2.rar (2.55 KB, 下载次数: 38)

2012-6-19 22:32 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

happytiger2012

2012-6-19 22:49

Sub AddColour()
    Dim rngJ As Range, rngBT As Range
    For Each rngJ In Range("J1:J" & Range("J65536").End(xlUp).Row)
        For Each rngBT In Range("BT1:BT" & Range("BT65536").End(xlUp).Row)
            If rngJ.Text = rngBT.Text Then
                Range("U" & rngJ.Row).Interior.Color = 100
            End If
        Next
    Next
End Sub
初学者，多指教！

跳转到最佳答案楼层

lordking

根据条件填充颜色2.rar (9.6 KB, 下载次数: 50)

2012-6-19 22:59 上传

点击文件名下载附件

happytiger2012

Sub AddColour()
    Dim rngJ As Range, rngBT As Range
    For Each rngJ In Range("J1:J" & Range("J65536").End(xlUp).Row)
        For Each rngBT In Range("BT1:BT" & Range("BT65536").End(xlUp).Row)
            If rngJ.Text = rngBT.Text Then
                Range("U" & rngJ.Row).Interior.Color = 100
            End If
        Next
    Next
End Sub
初学者，多指教！

gdsgzhrsh

lordking 发表于 2012-6-19 22:42

你是字典班的吗？答案相当不错！！字典，数组都用到。