Question

我想在列中找到日期匹配项，并希望了解VBA中最简单的方法。

这就是我的尝试：

date1 = Sheets("Part2").Cells(i, 1).Value
Dim matchRow As Integer
matchRow = 3
While Sheets("1.A").Cells(matchRow,1).Value != date1 Then
matchRow = matchRow + 1
End While

我从其他工作表中获取日期，并希望将其与其他工作表匹配。

需要一些关于如何简化此事的指导。

Answer 1

以下内容应该有效 - 如果您为＆＃39; i＆＃39;设置了值。获取搜索日期......

date1 = Sheets("Part2").Cells(i, 1).value

Sheets("1.A").Select

Cells.Find(What:=date1, After:=ActiveCell, LookIn:=xlValues, _
LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate

Debug.Print ActiveCell & vbTab & ActiveCell.Address

If ActiveCell = date1 Then
    MsgBox "Found in: " & ActiveCell.Address
Else
    MsgBox "Not found"
End If

在VBA中的列中查找匹配日期

1 个答案: