Question

excel2003中，请VBA高手帮忙编写代码：如下图片解释

可不可以，把颜色设置为每列都不一样呢？，就如上图片所示的颜色标记、

Answer 1

代码如下，对选中区域进行比较并填充颜色，详见附件。

Private Sub WorksheePrivate Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Co%, Ro&, i&, j%
Ro = Target.Rows.Count
Co = Target.Columns.Count
If Ro = 1 Or Co = 1 Or Target.Count Mod 256 = 0 Then Exit Sub
Target.Interior.ColorIndex = 0
For i = 1 To Ro
   For j = 1 To Co
      If Target(i, j) = Target(Ro, j) Then Target(i, j).Interior.ColorIndex = j + 2
Next j, i
End Sub

追问

可是代码复制到我的文档，执行后，就显示编译错误

追答

估计是你粘贴的位置不对，不能放在模块里，只能放在要处理的工作表代码区
难道你没有在我发的文件上试用吗，这是事件代码，不需要人工执行，是自动执行的（选择单元格区域后自动执行）

追问

我试了，可是一选择就执行了，但有时候我选择，并不是为了执行代码，我是想先选中范围后，再点执行代码，就可显示效果。

追答

Sub 着色()

Dim Co%, Ro&, i&, j%

Dim Target As Range

Set Target = Selection

Ro = Target.Rows.Count

Co = Target.Columns.Count

If Ro = 1 Or Co = 1 Or Target.Count Mod 256 = 0 Then Exit Sub

Target.Interior.ColorIndex = 0

For i = 1 To Ro

   For j = 1 To Co

      If Target(i, j) = Target(Ro, j) Then Target(i, j).Interior.ColorIndex = j + 2

Next j, i

End Sub

这个代码可放在模块里了，选中单元格区域后再执行代码即可

再给你一个方便的，选择区域后，再点右健执行代码（见附件）

追问

太好了，非常感谢！我还想问一下，如果我想改为别的颜色要怎么改呢？谢谢

Answer 2

Sub 设置()
Range("b11:g21").Select
For i = 2 To 7
    For Each rng In Range(Cells(11, i), Cells(21, i))
        If rng = Cells(21, i) Then rng.Interior.ColorIndex = 3
    Next
Next
End Sub

追问

请问能不能设置为，按选中的范围，再在范围中查找相同后标记颜色呢？我还有更多的数据，我试了一下，还不能执行到想要的颜色标记效果。

追答

明天再试试吧，要休息了。

追问

好的，明天帮我 再改改吧，谢谢，早点睡，晚安！

Answer 3

请见附件。

追问

请上传VBA代码行吗