vba - 使用 VBA 从 Excel 表中查找行

Question

在 Excel 中，我使用表格将动态数据存储在单独的工作表中。输入新数据就像一个魅力，但是，我希望能够从该表动态检索单行并将其数据存储在变量中。我更喜欢构建一个函数，这样我就可以做这样的事情:

findFromCatsByDate(searchterm) 'returns a single row if found with mathing date.

请注意，该表是动态的，而不是固定范围(因此它会垂直变化)。我想在其他表上稍微修改一下重用这个函数。我需要一个如何在 VBA 中实现此目的的示例。

谢谢

Answer 1

这将返回与指定表中的 Key 匹配的行的引用

Function GetRow(TableName As String, ColumnNum As Long, Key As Variant) As Range
    On Error Resume Next
    Set GetRow = Range(TableName) _
        .Rows(WorksheetFunction.Match(Key, Range(TableName).Columns(ColumnNum), 0))
    If Err.Number <> 0 Then
        Err.Clear
        Set GetRow = Nothing
    End If
End Function

使用示例

Sub zx()
    Dim r As Range
    Set r = GetRow("MyTable", 1, 2)
    If Not r Is Nothing Then
        r.Select
    End If
End Sub