Excel VBA 在两个不同的列中搜索结果然后粘贴答案

【问题标题】：Excel VBA search two different columns for a result to then pasteExcel VBA 在两个不同的列中搜索结果然后粘贴
【发布时间】：2019-02-21 22:25:02
【问题描述】：

我有一个搜索工作表，用于搜索不同的工作表。宏有效，但我无法在两列中搜索同一个单词。我厌倦了 OR 而不是 And 并没有奏效。我也尝试添加另一个整数，但这也不起作用。这是我的宏中的一些内容...基本上我想在第 6 列和第 7 列中搜索相同的单词。

Sub Searchcustomer()


Dim audit As String
Dim saudit As String
Dim finalrow As Long
Dim i As Long




Set msheet = Sheet11
Set ssheet = Sheet10


audit = ssheet.Range("B8").Value




msheet.Select
finalrow = msheet.Cells(Rows.Count, 1).End(xlUp).Row


For i = 1 To finalrow
    If  IIf(audit <> "", Cells(i, 6) = audit, True) Then
        msheet.Range(msheet.Cells(i, 1), msheet.Cells(i, 9)).Copy
        msheet.Range(msheet.Cells(i, 1), msheet.Cells(i, 9)).Copy Destination:=ssheet.Range("A100").End(xlUp).Offset(1, 0).Resize(1, 9)

    End If

Next i




ssheet.Select
ssheet.Range("B3").Select



End Sub

【问题讨论】：

您的代码仅在第 6 列中搜索，只需包含第 7 列的类似代码和类似操作.....使用 OR .... 所以它可以在 6 或 7 中找到

标签： excel vba

【解决方案1】：

For i = 1 To finalrow
    With msheet.rows(i)
    If  IIf(audit <> "", (.Cells(6) = audit Or .Cells(7) = audit), True) Then

       .Cells(1).Resize(1, 9).Copy _
          Destination:=ssheet.Range("A100").End(xlUp).Offset(1, 0)

    End If
    End With
Next i

【讨论】：