Too may continue continue

Question

私はいくつかの値を含む特定の列（列＃16）に基づいてテーブル（列 "A1：BB"）をフィルタリングしようとしています。ただし、列内の各セルには、いつでも任意の1つの特定の値を入れることができます。私は、セルの値が特定の値と一致するかどうかをチェックしようとしています。

With Sheets("LifeTimeData") 
.Range("A1:BB" & lastrow).AutoFilter field:=16, **SOME CRITERIA HERE** 
.Range("A1:BB" & lastrow).AutoFilter field:=22, Criteria1:=xlFilterLastMonth 

Set r = Intersect(.AutoFilter.Range, .Range("A:A")) 
Filtred_Rows_Count = Application.WorksheetFunction.Subtotal(103, r) - 1 
Worksheets("LifeTimeData").AutoFilterMode = False 
Sheets("Overview").Range("H" & x) = Filtred_Rows_Count 
End With 

基準以下の通りです：

Criteria1:="*" & Trim("Franchise Awarded") & "*", _ 
     Operator:=xlOr, Criteria2:="*" & Trim("Deposit Received") & "*", _ 
     Operator:=xlOr, Criteria3:="*" & Trim("Agent Awarded") & "*", _ 
     Operator:=xlOr, Criteria4:="*" & Trim("Approved Operator") & "*", _ 
     Operator:=xlOr, Criteria5:="*" & Trim("Archive non assigné") & "*", _ 
     Operator:=xlOr, Criteria6:="*" & Trim("Audit") & "*", _ 
     Operator:=xlOr, Criteria7:="*" & Trim("Awarded Franchise - New") & "*", _ 
     Operator:=xlOr, Criteria8:="*" & Trim("Awarded Franchise - Resale") & "*", _ 
     Operator:=xlOr, Criteria9:="*" & Trim("Chocolate Photo Booth") & "*", _ 
     Operator:=xlOr, Criteria10:="*" & Trim("Client") & "*", _ 
     Operator:=xlOr, Criteria11:="*" & Trim("Closed") & "*", _ 
     Operator:=xlOr, Criteria12:="*" & Trim("Closed Deal - Deposit Agreement") & "*", _ 
     Operator:=xlOr, Criteria13:="*" & Trim("Closed Deal - Franchise Agreement") & "*", _ 
     Operator:=xlOr, Criteria14:="*" & Trim("Closed Deal - Restaurant Development Agreement") & "*", _ 
     Operator:=xlOr, Criteria15:="*" & Trim("Completed") & "*", _ 
     Operator:=xlOr, Criteria16:="*" & Trim("Completed - Blueprint Only") & "*", _ 
     Operator:=xlOr, Criteria17:="*" & Trim("Completed Licensee") & "*", _ 
     Operator:=xlOr, Criteria18:="*" & Trim("CPB Qualification form answered") & "*", _ 
     Operator:=xlOr, Criteria19:="*" & Trim("CPB Qualification form sent") & "*", _ 
     Operator:=xlOr, Criteria20:="*" & Trim("Dealer Awarded") & "*", _ 
     Operator:=xlOr, Criteria21:="*" & Trim("deposit rec’d") & "*", _ 
     Operator:=xlOr, Criteria22:="*" & Trim("Closed Sale") & "*", _ 
     Operator:=xlOr, Criteria23:="*" & Trim("Disponibilité territoire en attente") & "*" 

しかし、これは "あまりにもの継続を並べること" という警告が表示されます。

どのような考えですか？

Answer 1

いくつかの奇妙な理由から、VBAで行できる継続数には制限があります。

メモリから、それは25

明らかだが、特に美的ではない、解決策は、線の一部を再参加することです。