Excel VBA:使用日期值填充一维数组

时间:2018-07-24 17:49:30

标签: arrays vba excel-vba

我正在尝试遍历一系列据称是连续的时间戳,并发现是否缺少一分钟。如果缺少一分钟,我希望将前一分钟存储在一维数组中。

如何创建日期数组并为其添加值?我知道可以使用“ Split”将字符串数组添加到其中,但是如何使用日期呢?这是我正在使用的基本代码。

Dim currentminute as Date, oldminute as Date
i=1
Do Until Sheets("Data").Cells(i, currentcolumn).Value=""
 currentminute=Sheets("Data").Cells(i, currentcolumn).Value
 If oldminute<>""
  If currentminute-.007>oldminute then
     array1()=array1 & oldminute then
     'How to add to array?
   End If
  End If
 Do Until Sheets("Data").Cells(i, currentcolumn)<>currentminute
  'Do calculations
   oldminute=currentminute
   i=i+1
  Loop
Loop

更新:我假设数组基本上是可以添加到的较大变量。错误!感谢您的答复。

0 个答案:

没有答案