Excel VBA 排除数据的高级过滤器

Question

I'm filtering data in a table based on customer reference numbers. Is there a VBA code I could use to filter out rows based on their customer reference number?

I'm using a very handy code I found online that includes data based on customer reference number that looks like this:

Dim rgData As Range, rgCriteria As Range, rgOutput As Range

Set rgData = ThisWorkbook.Worksheets("Sheet 1").Range("A1").CurrentRegion
Set rgCriteria = ThisWorkbook.Worksheets("Sheet 1").Range("I1").CurrentRegion
Set rgOutput = ThisWorkbook.Worksheets("Sheet 2").Range("A1")

rgData.AdvancedFilter xlFilterCopy, rgCriteria, rgOutput

The code works by including only the customers found in the table that starts in cell "I1" in sheet 1, it then goes to the table that starts in celle "A1" and only includes customers that have the customer reference numbers and then sends the table to sheet 2.

Is there a way that I could change the above code so that it excludes those customer reference numbers found in the table in cell "I1"?

Thanks,

Answer 1

Sub advanced_filter()

    Dim rgData As Range, rgCriteria As Range, rgOutput As Range
    
    With ThisWorkbook.Worksheets("Sheet 1")
        Set rgData = .Range("A1").CurrentRegion
        Set rgCriteria = .Range("D1").CurrentRegion
        Set rgOutput = .Range("F1")
    
        .Range("F1:G7").ClearContents
        rgData.AdvancedFilter xlFilterCopy, rgCriteria, rgOutput

        Set rgData = .Range("A8").CurrentRegion
        Set rgCriteria = .Range("D8").CurrentRegion
        Set rgOutput = .Range("F8")
    
        .Range("F8:G15").ClearContents
        rgData.AdvancedFilter xlFilterCopy, rgCriteria, rgOutput
    End With
End Sub