EXCEL 上一筆下一筆日期比較

輸入資料完成後試試以下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.如果您想在資料新增時自動配色，是可以修改程式碼，但如此一來可能會花費比較多的時間，因為程式還是必須要從第一筆開始計算，如果每鍵一筆就重新計算一次，您就會花費許多時間在等待，倒不如一次執行花一次時間等待。

"你所說的不難回答！
很多資料都有的，你看！
下面所要的資料~

請詳細看看！【最佳答案】複製打開：http://zui-jia-da-an.tumblr.com/



"

STEP1:
選取整張表格/格式/設定格式化條件/公式為/輸入公式=MOD($A2,2)=1/格式/圖樣/點選色彩/確定
STEP2:
承上/新增/公式為/輸入公式=MOD($A2,2)=1/格式/圖樣/點選色彩/確定
下載地址
http://www.FunP.Net/624634

http://blog.xuite.net/hcm19522/twblog/231763783

2014-08-01 11:11:27 補充：
001 補充
圈選資料(B2:D21)-->填滿顏色