Question

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

DATE                   |  PART#      | XXX    | XXX | 

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

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

有许多条目，日期是起点。我的问题是如何找到行和＆amp;列在某个特定日期之前？因此，如果我想了解PART#的{{1}}和其他属性，我该如何找到它？

我的2013-06-28 13:32:23创建一个新工作表，对其进行样式设置，然后从旧工作表中传输文本。问题在于文本的转移。我想指定从哪一行获取文本以生成报告。

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

按特定标准查找特定行？ Excel MACRO，VBA

1 个答案: