如何使用用户窗体从Excel检索数据

Question

我的“ Sheet1”中包含的数据只有两列。列“ A”和列“ B”。

下面是我的问题

1. 下面的代码可以正常工作，但是此刻，我必须将每个单词放在单元格中以显示结果。有没有一种方法可以在其中键入一个单词或该单元格中包含的几个单词，它将显示结果。

2. 有没有办法，如果我从数据中提取了2个不同的结果（如重复项），那么接下来要看的代码是什么。我是否需要一个命令按钮，例如：Next

---

Private Sub CommandButton1_Click()
    Dim rng As Range
    Dim cl As Range
    Dim vFind
    Dim R As Long

    Set rng = Sheet1.Range(Cells(1, 1), Cells(Rows.Count, 1).End(xlUp))

    vFind = Me.TextBox1.Text
    With rng
        Set cl = .Find(vFind, LookIn:=xlValues)
        If Not cl Is Nothing Then R = cl.Row
        Me.TextBox2.Value = Cells(R, 2).Value
    End With