✔ 最佳答案
輸入資料完成後試試以下VBA程式碼:
Sub test()
Dim i, k
k = 0
For i = 2 To ActiveSheet.Range("a65536").End(xlUp).Row
If Application.WorksheetFunction.CountIf(ActiveSheet.Range("A2:A" & i), ActiveSheet.Cells(i, 1)) = 1 Then
k = k + 1
End If
If k Mod 2 = 1 Then
ActiveSheet.Range("A" & i & ":F" & i).Interior.Color = RGB(128, 128, 128)
End If
If k Mod 2 = 0 Then
ActiveSheet.Range("A" & i & ":F" & i).Interior.Color = vbBlue
End If
Next i
End Sub
是否是您要的結果?
註:若欄位設定不足請自行調整(程式碼是假設資料只到F欄)
2014-08-01 11:41:17 補充：
EXCEL開啟後，同時按下ALT + F11鍵，會出現VBA編輯器畫面，接著在左邊插入模組，再點選模組，並於右邊輸入上面程式碼，最後執行上面工具列的三角形(Play)按鈕可。
儲存檔案時，若您的EXCEL版本在2007(含)以上，請存成副檔名為.xlsm的檔案。
2014-08-02 17:32:50 補充：
1.是的，新增資料時須再按一次執行鍵才會再重新配色。
2.如果您想在資料新增時自動配色，是可以修改程式碼，但如此一來可能會花費比較多的時間，因為程式還是必須要從第一筆開始計算，如果每鍵一筆就重新計算一次，您就會花費許多時間在等待，倒不如一次執行花一次時間等待。
