在第壹個FOR循環中,如果沒有出現符合條件的單元格,數組NEWDATE就沒有賦值,這樣又出現了下標越界的問題。第二個FOR循環中 DT(j) = Newdate(kk) + TimeValue(S.Cells(l + 1, 1))這句您定義的l變量賦值如果超過了符合條件的那個數組的最大值,肯
其次您沒有約束您表格中的數據類型,壹旦您寫入的類型和代碼類型不壹致,馬上出現類型不壹致問題。然後妳的變量值太大,沒有約束,例如,第二個FOR循環中 DT(j) = Newdate(kk) + TimeValue(S.Cells(l + 1, 1))這句您定義的l變量賦值如果超過了符合條件的那個數組的最大值,肯頂會出現類型不壹致。
最後,二維數組要先經過轉置後才能進行循環操作。否則在定義後肯定會出現您括號中提示的下標越界問題。
PS:這個宏的目的我不是很明確,不過請把各種問題考慮到後再進行操作。