基于多个输入的 Excel VBA 查找的 VBA 代码（部分）

Question

我的 Excel Sheet 格式与此类似

Name code1  Name Code2  Name       Number    Input1   Input2   
AB           XY        GSABPEXY1    110      BA       BC
BC           BA        GSBCPEBA1    120
CD           CA        GSCDPECA1    13
DC           DA        GSDCPEDA3    140
BC           BA        GSBCPEBA3    15

问题：

1. 我想通过匹配 Input1 AND Input2 中的输入来获取 Name 列中的值。
2. 我需要将这些匹配值粘贴到另一个工作表的预定义特定行和列单元格中
3. 使用 excel 函数 countifs 我正在计算 A 列（名称代码 1）和 B 列（名称代码 2）中具有相同重复值的行数，例如在上面的 BC 和 BA 中，计数为 2。
4. 我想将这个值（在 #3 中提到）用于循环迭代

我得到的这段代码看起来非常接近，但它缺少两件事 ABC 在 INSTR 函数中预定义并且它没有 AND 运算符 - 我不知道该怎么做。我对 VBA 很陌生，所以如果我遗漏了一些简单的东西和/或提供的信息较少，请原谅我。

代码：

Sub Hostname()
    Dim K As Long, r As Range, v As Variant
    K = 1
    Dim w1 As Worksheet, w2 As Worksheet
    Set w1 = Sheets("Sheet2")
    Set w2 = Sheets("Sheet3")
    w1.Activate
    For Each r In Intersect(Range("A:A"), ActiveSheet.UsedRange)
        v = r.Value
        If InStr(v, "ABC") > 0 Then
            r.Copy w2.Cells(K, 1)
            K = K + 1
        End If
    Next r
End Sub

Answer 1

好的，我想我知道你想做什么了。这个怎么样？

Sub Hostname()

    Dim codeName1 As String
    Dim codeName2 as string
    Dim count As Integer
    Dim r As Range
    Dim targetRange as Range

    Set targetSheet = ThisWorkbook.Sheets("MyTargetSheetName").Range("AddressOfFirstCellForDataInput")
    codeName1 = "BC"
    codeName2 = "BA"

    For Each r In ActiveSheet.Range("A:A")
        with r
            If .Value2 = codeName1 And .Offset(0, 1).Value2 = codeName2 Then
                targetRange.Offset(count, 0).value = .Offset(0, 2).Value2
                count = count + 1
            ElseIf Len(Trim(.Value2)) = 0 Then
                Exit For
            end if
        End With
    Next

    Call msgbox("Found " & count & "cells matching Name code 1: " & codeName1 & " Name code 2: " & codeName2)
End Sub

这将计算与名称代码 1 和名称代码 2 匹配的单元格的数量。你能调整它来做你想做的事吗？