excel - 按特定条件查找特定行？Excel 宏，VBA

Question

所以我有一个excel如下所示的电子表格：

DATE                   |  PART#      | XXX    | XXX | 

2013-06-28 13:32:23    |  40240      | XXX    | XXX | 

2013-02-21 13:32:23    |  40240      | XXX    | XXX | 

有许多条目，以日期为起点。我的问题是如何在某个日期找到行和列？因此，如果我想知道 的PART#和其他属性2013-06-28 13:32:23，我该如何找到它？

我MACRO创建了一个新工作表，对其进行样式设置，然后将文本从旧工作表转移过来。问题在于文本的传输。我想指定从哪一行获取文本以生成报告。

Answer 1

以下将查找找到搜索值的所有行：

Sub getVal()
    Dim searchRange As range
    Dim result As range
    Dim rangeStart As String

    Set searchRange = Application.ActiveSheet.UsedRange
    Set result = searchRange.Find(After:=searchRange(1), _
        What:="6/28/2013  1:32:23 PM", _
        LookIn:=xlFormulas, SearchDirection:=xlNext)

    If Not result Is Nothing Then
        rangeStart = result.Address

        Do
            MsgBox (" row " & result(0).Row & " " & result.Address)
            Set result = searchRange.FindNext(After:=result(1))

        Loop While Not result Is Nothing And rangeStart <> result.Address
    Else
        MsgBox "Not found"
    End If
End Sub