工作表中的匹配信息答案

【问题标题】：Matching information in worksheet工作表中的匹配信息
【发布时间】：2016-07-20 16:20:37
【问题描述】：

用户在（Sheet1）上输入特定信息，即工作流、服务器、位置、开始时间、依赖关系和执行时间。

我有一个在标题中包含这些名称的图表。

我需要查找用户输入的信息。我曾尝试使用VLookup，但这仅适用于一个标准。还有什么我可以用的吗？

这是我的代码：

Sub Button2_Click()
    'Copy the ticket number'
    Worksheets("Sheet1").Range("c3").Copy _
      Destination:=Worksheets("Sheet3").Range("b2")
    Call CopyTable
    Call FINDSAL
End Sub

Sub CopyTable()
    '
    ' CopyTable Macro to sheet 3
    '
    Sheets("Sheet2").Select
    Range("D1:I38").Select
    Selection.Copy
    Sheets("Sheet3").Select
    Range("C4").Select
    ActiveSheet.Paste
    Columns("C:C").EntireColumn.AutoFit
    Columns("D:D").EntireColumn.AutoFit
    Columns("E:E").EntireColumn.AutoFit
    Columns("F:F").EntireColumn.AutoFit
    Columns("G:G").EntireColumn.AutoFit
    Columns("H:H").EntireColumn.AutoFit
    ActiveWindow.SmallScroll Down:=12
End Sub

Sub FINDSAL()
    'looking for the specific word'
    Dim E_name As String
    E_name = Worksheets("Sheet1").Range("C5").Value
    sal = Application.WorksheetFunction.VLookup(E_name, Sheet3.Range("c4:h41"), 1, False)
    MsgBox sal
End Sub

【问题讨论】：

Index/Match with multiple criteria 工作吗？
创建断开连接的记录集，用范围内的值填充它，应用过滤器，并从记录集中获取结果记录。这是example。

标签： vba excel

【解决方案1】：

Sub FINDSAL()
'looking for the specific word'
Dim E_name As String
E_name = Worksheets("Sheet1").Range("C5").Value
if instr(ename,Sheet3.Range("c4:h41")) > 0 then
  msgbox Ename & " was found in the range. All range text is " &     Sheet3.Range("c4:h41") 
msgbox "Set sal as whatever you're trying to get out of this..."
end if
MsgBox sal

结束子

【讨论】：