不同人名填入顏色作區隔

owen06

請問小弟這個表，該如何才能讓他執行完巨集之後，能將不同名字之間用底色來使區分明顯，
例：第一個名字(淑萍)相同名字的那幾列有底色，第二個名字那幾列沒底色，第三個有，第四個沒有，依此類推。

懇請高手幫忙一下，謝謝！

准提部林

Sub 填色()
Dim xR As Range, T, N%, C
C = Array(36, 35) '兩種顏色輪換
For Each xR In Range([A4], [A65536].End(xlUp))
　　If xR.Row < 4 Then Exit Sub '沒有資料，跳出
　　If xR <> T Then N = 1 - N: T = xR
　　xR.Resize(1, 13).Interior.ColorIndex = C(N)
Next
End Sub

owen06

回復 2# 准提部林


    感謝版大，測試ok！這種邏輯能力實在太強了。