Question

所以目前我有一个函数可以在工作表中搜索两个术语并返回True或False，具体取决于是否找到它。现在，我想要完成的是，如果我找到该条目，我想将找到条目的整行复制到另一张表。我有一些麻烦，而且我不完全确定如何继续。

这是我的源代码：

Private Function Search(BinStr As String, L4 As String) As Boolean
    Dim rng1 As Range
    Dim rng2 As Range

    Set rng1 = Worksheets("FirstSheet").Range("A:A").Find(BinStr, , xlValues, xlWhole)
    Set rng2 = Worksheets("FirstSheet").Range("C:C").Find(L4, , xlValues, xlWhole)
    If Not rng1 Is Nothing And Not rng2 Is Nothing Then
        rng1.Offset(0,1).Copy Destination:=Worksheets("Matches").Range("A")
        Search = True
    Else
        Search = False
    End If
End Function

Answer 1

函数用于返回值。根据您提供的信息，您应该使用利用自定义搜索功能的子程序。

Sub CopyMatches()
   If Search("string","other string") Then
      'code to copy row data to other worksheet
   End If
End Sub

如果VBA与搜索匹配，则将其复制到另一个工作表

1 个答案: