Excel 2010 VBA-在三列中搜索文本，然后将信息复制到列的右侧

我已经是使用VBA的第三天了。到目前为止还不错，但我目前的问题是头痛

我有一个主表（表a），其中有三个下拉列表（职位、区域、部门）。一旦用户在下拉列表中进行选择，我的第二张工作表（工作表B）需要输入第三张工作表（工作表C）中包含的数据

表C如下所示：

（无法粘贴图像）

我希望从工作表A的三个下拉列表中搜索B、C和D列（职务、区域、部门）。一旦确定了正确的行，我需要F、G、H……列中“程序”（程序在作业旁边水平列出）的信息，。。。在活页B中水平填充

---

对我来说，这似乎很有挑战性。但希望VBA大师能证明我错了

您可以尝试这种方法

---

---

代码是

---

端接头

---

希望这对你有帮助

Private Sub ComboBox3_Change()

With Worksheets("Sheet3")
    .AutoFilterMode = False
    .Range("B:D").AutoFilter Field:=1, Criteria1:=ComboBox1.Value, Operator:=xlAnd
    .Range("B:D").AutoFilter Field:=2, Criteria1:=ComboBox2.Value, Operator:=xlAnd
    .Range("B:D").AutoFilter Field:=3, Criteria1:=ComboBox3.Value, Operator:=xlAnd
End With

With Worksheets("Sheet3")
    If rowNumber = 1 Then
        MsgBox "No Record with those details."
    Else
        rowNumber = .Range("F65536").End(xlUp).Row
        Worksheets("Sheet3").Range("F" & rowNumber & ":H" & rowNumber).Copy
        Worksheets("Sheet2").Range("A2").PasteSpecial
    End If
End With