在循环中获取列表的第二个元素

时间:2016-07-12 14:44:29

标签: vba excel-vba excel

我有一个用例,我希望将值与范围中的日期进行比较。应该是这样的情况:如果日期在单元格C4和C5中的日期之间,则需要在单元格B4中放置一些东西。

我做了以下事情:

Sub count
'Set a range and number

  number = Sheets("Blad1").Cells(1, 1)

  Range("F3").Select
  Set x = Range(Selection, Selection.End(xlDown))

  For Each cell In x

    cell1 = cell
    cell2 = cell2

    'If number is between cell1 and cell 2 do something.

  Next cell

End sub

但是这不起作用,因为cell2确实评估了x列表中的第二个值,但基本上是cell1加1。

有人能告诉我如何获得列表x的第二个值吗?所以如果我有一个带有1,2,3,4的x列表。我第一次有1,2和第二次2,3等...

0 个答案:

没有答案