从输入框中搜索表中的值并返回多个值

Question

我有一个表格，其中单元格C10：H10包含不同的项目名称，每列具有10个数值。我需要创建一个宏，用户可以在其中插入他想要的项目的名称，然后该宏将复制该列的所有数值并将其粘贴到另一个表中。

我当时正在考虑使用HLOOKHUP来做到这一点，但我不知道该怎么做。我尝试使用下面的代码，但它不能满足我的要求：

Sub copy()

 Dim answer As Variant
    answer = InputBox("Insert the name")

Dim i As Integer, a As Range
i = 0

For k = 0 To 5
    Cells(10, 3 + k).Select
    If ActiveCell = answer Then
        a = Activecell
        For x = 1 To 10
            a.Offset(x, 0).Select
            Selection.Copy
            Range("K1").Select
            ActiveCell.Offset(i, 0).Select
            ActiveSheet.Paste
             i = i + 1
       Next

    End If
Next

End Sub

Answer 1

Answer 2