查找包含特定值的行

Question

    A    
----------
1/01/2016
...
12/31/2019

如何返回特定日期所在的行号？

类似这样的事情：

Private Sub btnSubmit_Click()

    today = Date

    row_today = ThisWorkbook.Sheets("Sheet1").Range("A:A").Find(What:=today, _
        LookIn:=x1Values)

    MsgBox row_today

End Sub

Answer 1

在子程序开始时声明变量是一个很好的做法，在这种情况下，它会帮助您找到错误。另一个问题是.find当前正在返回一个范围，您希望在该范围中看到该范围的行号。下面我将解释如何解决这两个问题：

在您的代码中，您要返回：

• 今天作为日期和
• row_today作为长整数

null

Dim today As Date
Dim row_today As Long

row_today = ThisWorkbook.Sheets("Sheet1").Range("A:A").Find(What:=today, LookIn:=x1Values)

首先，您有一个输入错误--应该是lookin:=xlvalues而不是lookin:=x1values

其次，返回包含要查找的日期的单元格的范围。有关.find方法的详细信息，请阅读此处的MSDN文档。

若要返回行号，只需在末尾添加.row，如下所示：

row_today = ThisWorkbook.Sheets("Sheet1").Range("A:A").Find(What:=today, LookIn:=x1Values).Row

Private Sub btnSubmit_Click()

Dim today As Date
Dim row_today As Long

today = Date
row_today = ThisWorkbook.Sheets("Sheet1").Range("A:A").Find(What:=today, LookIn:=xlValues).Row

Debug.Print row_today

End Sub