標題: 不同人名填入顏色作區隔 [打印本頁]

---

作者: owen06    時間: 2015-10-28 13:48     標題: 不同人名填入顏色作區隔

本帖最後由 owen06 於 2015-10-28 13:52 編輯

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

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

---

作者: 准提部林    時間: 2015-10-28 14:35

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    時間: 2015-10-28 14:52

回復 2# 准提部林


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

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)