excel - 使用 VBA 的搜索按钮

Question

此代码假设正在从另一个工作表中查找关键字。它工作正常，但我必须从其他工作表中输入确切的工作。我该如何改进它以使其仅搜索关键字。例如，如果我想搜索 Red Car，我只想输入 Red。

Private Sub CommandButton1_Click()
totalsheets = Worksheets.Count
mykeyword = Worksheets("MasterSheet").Cells(2, 8).Value
For i = 1 To totalsheets

If Worksheets(i).Name <> "MasterSheet" Then
lastrow = Worksheets(i).Cells(Rows.Count, 1).End(xlUp).Row

For j = 2 To lastrow
If Worksheets(i).Cells(j, 1).Value = mykeyword Then
Worksheets("MasterSheet").Activate
lastrow = Worksheets("MasterSheet").Cells(Rows.Count, 1).End(xlUp).Row
Worksheets("MasterSheet").Cells(lastrow + 1, 1).Value =   Worksheets(i).Name
Worksheets("MasterSheet").Cells(lastrow + 1, 2).Value = Worksheets(i).Cells(j, 2).Value
Worksheets("MasterSheet").Cells(lastrow + 1, 4).Value = Worksheets(i).Cells(j, 3).Value
Worksheets("MasterSheet").Cells(lastrow + 1, 3).Value = Worksheets(i).Cells(j, 4).Value

Answer 1

而不是 If Worksheets(i).Cells(j, 1).Value = mykeyword
尝试:If Instr(Worksheets(i).Cells(j, 1).Value, mykeyword) > 0