客户名和日期相同的，用颜色填充行。请问怎么做到

llxyxll

客户名和日期相同的，用颜色填充行。有多个客户用二种颜色区分开。并且扩展表格输入新内容，自动填充。效果见附件。请问怎么做到。

coolall

这段vba写的有些简陋，基本实现了功能
Sub run()
Row = Range("b65536").End(xlUp).Row
k = countR
a = 0
Dim i As Integer
Dim j As Integer
init = 2
For c = 2 To k
    If Cells(c, 1) & Cells(c, 2) <> Cells(c + 1, 1) & Cells(c + 1, 2) Then
        j = c
        i = init
        If a = 0 Then
        Call draw1(i, j)
        a = 1
        Else
        Call draw2(i, j)
        a = 0
        End If
        enter = 1
        temp = c
    End If
    If enter = 1 Then
    init = temp + 1
    temp = 0
    enter = 0
    End If
Next c
End Sub
Function draw1(i, j As Integer)

   Range(Cells(i, 1), Cells(j, 11)).Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent2
        .TintAndShade = 0.5
        .PatternTintAndShade = 0
    End With
End Function
Function draw2(i, j As Integer)
   Range(Cells(i, 1), Cells(j, 11)).Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent3
        .TintAndShade = 0.1
        .PatternTintAndShade = 0
    End With
End Function
Function countR() As Integer
    For i = 2 To Range("a65536").End(xlUp).Row
    If Sheets(1).Cells(i, 1) <> "" Then
    countR = i
    Else
    Exit For
End If
Next i
End Function

llxyxll

coolall 发表于 2016-2-18 14:17
这段vba写的有些简陋，基本实现了功能
Sub run()
Row = Range("b65536").End(xlUp).Row

要的就是这效果，谢谢了。