Question

我正在尝试使用VBA Find函数从列中查找日期，然后返回日期的行号。

这有效：

Cells.Find(What:="1 Jul 13", After:=ActiveCell, LookIn:=xlValues, LookAt _
    :=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
    False, SearchFormat:=False).Activate

但是，这不起作用：

Cells.Find(What:=Range("E2"), After:=ActiveCell, LookIn:=xlValues, LookAt _
    :=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
    False, SearchFormat:=False).Activate

有什么想法吗？我希望用户输入一个日期到“E2”，然后运行我的代码，所以如果可能的话我宁愿使用第二种方式。

非常感谢你的帮助。

本

Answer 1

如果 1月13日实际出现在单元格中，请使用;

What:=Range("E2").Text

VBA代码用于查找数据中日期的行号

1 个答案: