应用自动筛选后，忽略电子表格中的隐藏行

Question

我正在尝试找到一个代码，该代码将忽略电子表格上的隐藏行，该电子表格用于在用户过滤数据后自动填充PDF表单。我不想删除隐藏行或用户在隐藏行中输入的信息。

我找到了几个可以正常工作的代码，但是由于不确定我是否在代码的正确部分添加了上述代码，因此无法对其进行正确的测试。有人建议我按照下面的方法使用.SpecialCells（xlCellTypeVisible）可以提供帮助，但是对于在何处插入此代码以及原因，我还没有任何反馈。

Sub TableFilt()
Dim PayorName As String
Dim LastRow As Long
With Sheet1
 LastRow = .Range("A99999").End(xlUp).Row
 If LastRow < 12 Then LastRow = 12
 If .Range("A11").Value = "Enter Payor Name to Filter" Then PayorName = 
 Empty Else: PayorName = .Range("A11").Value
 .Range("A12:DS" & LastRow).Select
 Selection.AutoFilter
   With .Range("A12:DS" & LastRow)
     If PayorName <> Empty Then .AutoFilter Field:=1, Criteria1:="=*" & 
   PayorName & "*"
  End With
.Range("12:12").EntireRow.Hidden = True
End With
End Sub

我希望用户能够在使用自动过滤器后创建PDF，而不必担心隐藏的行将被删除，或者在创建所需的PDF后清除信息将被清除。过滤。有人可以请教吗？谢谢！