太可能行延續

我想根據包含多個值的某個列（列＃16）過濾一個表（列 - 「A1：BB」）。但是，列中的每個單元格可以隨時包含任何一個特定值。我正在嘗試檢查單元格中的值是否與某些值匹配。太可能行延續

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") & "*"

然而，這顯示了一個警告「太可能系延續」。

有什麼想法？

來源

2016-08-24 Tanmoy

Range.Autofilter只有2個標準參數「Criteria1」和「Criteria2」。您也可以只爲'Operator'指定一個*** single ***參數。 [請參閱此處的文檔]（https://msdn.microsoft.com/en-us/library/office/ff193884.aspx）。 – Comintern

由於一些離奇的原因，VBA中的行延續數量有限制。

從內存中，它是25

明顯的，但不是特別美觀，解決方法是重新加入某些行。

來源

2016-08-24 08:35:14 Bathsheba

嗯。這可能是一種解決方法。但我嘗試了3條件和VBA返回給我一個「應用程序或對象定義的錯誤」 – Tanmoy

@Tanmoy - 請參閱[使用excel vba過濾多個條件]（http://stackoverflow.com/questions/28575754/filter-out-多層標準的使用-Excel的VBA）。 – Comintern

太可能行延續

回答

相關問題