VBA：如果单元格引用值为空，如何忽略自动筛选器

我正在尝试根据在单独的工作表“filter”中input的多个标准过滤和提取工作表“数据”中的数据。 但是，由于“filter”表中的某些条件字段为空，返回的数据为空。 如果有一种方法可以忽略input的标准之一是否为空，并继续使用其他标准进行数据过滤并返回数据？ 以下是我到目前为止写的代码：

Sub CopyPastingFilteredData() Dim wb As Workbook Set wb = ActiveWorkbook If Sheets("Data").FilterMode Then Cells.AutoFilter End If 'Filtering Data wb.Sheets("Data").Range("A2:BB20000").AutoFilter field:=1, Criteria1:=Sheets("Filters").Range("C4").Text wb.Sheets("Data").Range("A2:BB20000").AutoFilter field:=50, Criteria1:=Sheets("Filters").Range("C5") wb.Sheets("Data").Range("A2:BB20000").AutoFilter field:=19, Criteria1:=Sheets("Filters").Range("C6") wb.Sheets("Data").Range("A2:BB20000").AutoFilter field:=5, Criteria1:=Sheets("Filters").Range("C7") wb.Sheets("Data").Range("A2:BB20000").AutoFilter field:=51, Criteria1:=Sheets("Filters").Range("C8") wb.Sheets("Data").Range("A2:BB20000").AutoFilter field:=20, Criteria1:=Sheets("Filters").Range("C9") wb.Sheets("Data").Range("A2:BB20000").AutoFilter field:=23, Criteria1:=Sheets("Filters").Range("C10") wb.Sheets("Data").Range("A2:BB20000").AutoFilter field:=7, Criteria1:=Sheets("Filters").Range("C11") 'Copying Data post filtering wb.Sheets("Data").Range("A3:BB20000").Offset(1, 0).SpecialCells(xlCellTypeVisible).Copy wb.Sheets("Extract").Select Cells(12, 1).PasteSpecial Paste:=xlPasteValues Set FilterRange = Nothing Application.ScreenUpdating = True Application.CutCopyMode = False Sheets("Data").Select Sheets("Data").Activate Cells.AutoFilter Sheets("Extract").Select Sheets("Extract").Activate End Sub 

Answer 1

过滤之前，您可以testing以查看单元格是否首先包含数据。 我已经在下面更改了“ Filtering Data部分

 Sub CopyPastingFilteredData() Dim wb As Workbook Dim shF As Worksheet Set wb = ActiveWorkbook Set shF = wb.Sheets("Filters") If Sheets("Data").FilterMode Then Cells.AutoFilter End If 'Filtering Data With wb.Sheets("Data").Range("A2:BB20000") If shF.Range("C4").Value <> "" Then .AutoFilter field:=1, Criteria1:=shF.Range("C4").Text If shF.Range("C5").Value <> "" Then .AutoFilter field:=50, Criteria1:=shF.Range("C5") If shF.Range("C6").Value <> "" Then .AutoFilter field:=19, Criteria1:=shF.Range("C6") If shF.Range("C7").Value <> "" Then .AutoFilter field:=5, Criteria1:=shF.Range("C7") If shF.Range("C8").Value <> "" Then .AutoFilter field:=51, Criteria1:=shF.Range("C8") If shF.Range("C9").Value <> "" Then .AutoFilter field:=20, Criteria1:=shF.Range("C9") If shF.Range("C10").Value <> "" Then .AutoFilter field:=23, Criteria1:=shF.Range("C10") If shF.Range("C11").Value <> "" Then .AutoFilter field:=7, Criteria1:=shF.Range("C11") End With 'Copying Data post filtering wb.Sheets("Data").Range("A3:BB20000").Offset(1, 0).SpecialCells(xlCellTypeVisible).Copy wb.Sheets("Extract").Select Cells(12, 1).PasteSpecial Paste:=xlPasteValues Set FilterRange = Nothing Application.ScreenUpdating = True Application.CutCopyMode = False Sheets("Data").Select Sheets("Data").Activate Cells.AutoFilter Sheets("Extract").Select Sheets("Extract").Activate End Sub