搜索具有多个条件的表格 - VBA（Excel）

Question

我一直在尝试根据多个条件构建搜索实用程序。我目前的代码可以帮助我根据一个标准进行搜索。

我希望根据描述，类别（部分或全部搜索），价格（例如＆gt; 10，＆lt; 50，即任何运营商）进行搜索

下面是我试图搜索的示例数据，我也包括了预期的结果方案：

完整数据
搜索

SKU Desc    Category    Price
1   Pen UTL 5
2   Pie1    FOOD    15
3   Pie2    FOOD    17
4   Pie3    FOOD    25
5   Pie4    FOOD    30
6   Paper1  UTL 4
7   Paper2  UTL 4.5
8   Paper3  UTL 10
9   Paper4  UTL 12
10  Paper5  UTL 14
11  Calculator1 UTL 50
12  Calculator2 UTL 70
13  Calculator3 UTL 90

在这里，我们将非常感谢您的帮助。我的实际数据将达到20K记录。

以下是当前代码：这里我有要在A4：D17中搜索的数据，结果显示在H：K

Option Explicit

Sub finddata()

Dim Catagoryname As String Dim finalrow As Integer Dim i As Integer 'row counter

Sheets("Data").Range("H5:k17").ClearContents Catagoryname = Sheets("Data").Range("J2").Value finalrow = WorksheetFunction.CountA(Range("A:A"))

For i = 5 To finalrow
    If Cells(i, 3) = Catagoryname Then
        Range(Cells(i, 1), Cells(i, 12)).Copy
        Range("H100").End(xlUp).Offset(1, 0).PasteSpecial xlPasteFormulasAndNumberFormats
    End If Next i

End Sub

Answer 1

@Ashwin，这是我用来搜索超过11,000条记录列表中的部分名称的小例程，然后我可以对类别进行自动过滤以缩小列表范围。结果将发布到工作簿中的另一个工作表，因为我需要查看结果中的所有36列。如果您需要额外的自动过滤器，那么只需添加到最后。我只是使用2个输入框进行搜索，因为它必须快速且即时。您应该能够修改任何代码以满足您的需求。希望这会有所帮助。

Public Sub SearchForItem()
  'SEARCH FOR SOMETHING AND OPTION TO SORT BY SOMETHING ELSE
Dim lngLastRow As Long
Dim lngRow As Long
Dim strValue As String
Dim lngRowOutput As Long
Dim result As String
Dim quest1 As String


result = InputBox(prompt:="What ?", Title:="First Search Item")
   If result = vbNullString Then
       Exit Sub
   Else
' where does the data end in Sheet1
   lngLastRow = Sheet2.UsedRange.Rows.Count

   If lngLastRow = 1 Then Exit Sub ' no data

' Clear down sheet2, assume we have column headings in row 1 we want to keep
   Sheet7.Range("6:1048576").Clear

lngRowOutput = 6 ' where are we going to write the values to in Sheet7 

For lngRow = 6 To lngLastRow
    strValue = Sheet2.Cells(lngRow, 2).Value ' get value from column B

    If InStr(1, strValue, result, vbTextCompare) > 0 Then ' can we find "First Search Item" in the text
        Sheet2.Rows(lngRow).Copy
        Sheet7.Rows(lngRowOutput).PasteSpecial
        lngRowOutput = lngRowOutput + 1
    End If

Next lngRow

End If

   'Go to the results and decide whether to AutoFilter or not
    Sheets("SResults").Select
quest1 = MsgBox("Do you want to select a category ?", vbYesNo)
  If quest1 = vbNo Then
  Exit Sub
  Else
 ActiveSheet.Range("$A$5:$AG$106").AutoFilter Field:=3, Criteria1:="=*" & InputBox("Operator to search for?") & "*"
  End If
End Sub