VBA 數組下標越界問題

首先您寫的代碼很不嚴謹。如：For k = 3 To R2您沒有考慮到R2<3的情況，導致下標越界。

在第壹個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:這個宏的目的我不是很明確，不過請把各種問題考慮到後再進行操作。