vba excel匹配多個標準

Question

任何幫助，將不勝感激。這看起來像一個常見的問題，但我無法找到任何vba。這是我最好的拍攝：

Dim oppositeRow As Long 
..... 
oppositeRow = WorksheetFunction.Match(ddate & campaign, "A3:B62", 0) 

Answer 1

如果你知道，只會有一個匹配的結果，你可以做以下爲Excel公式：

=SUMPRODUCT(ROW(A2:A5), N("john"=A2:A5), N("smith"=B2:B5)) 

適用於以下工作：

 
     A  B 
1  first last 
2  bob smith 
3  john smith  
4  john brown 
5  sam brown 

這將返回3（因爲約翰史密斯在第三行），您將不得不減去1，以獲取索引到表中，因爲標題行。

這是通過三個矢量相乘：

1. 第一，ROW（A2：A5），僅僅是{2,3,4,5}。
2. 第二個，N（「john」= A2：A5）是{0,1,1,0}。 N（）採用矢量{false，true，true，false}並將其轉換爲數字。
3. 第三，N（「smith」= B2：B5）是{1,1,0,0}。與N（）相同。

乘以矢量一起逐元素得到{0,3,0,0}，其總和爲3。

這是有點笨拙表達一樣，在VBA一個複雜的公式，所以如果你想在VBA中純粹使用它，我建議你只是用一個計數器做一個循環，然後記錄下你找到的符合你的標準的行的索引。

編輯：這裏是一些VBA代碼：

Dim index as Integer 
For index = 1 to 4 
    If Range("A1").Offset(index).Value = "john" And Range("B1").Offset(index).Value = "smith" Then 
     Exit For 
    End If 
Next index 

Answer 2

你可以爲你增添一份列到工作表是用來表示行號與DGET公式做到這一點，只要。

 
rowID column1 column2 
1  A  aa 
2  B  bb 
3  C  cc 
4  D  dd 
5  E  ee 

的公式是那麼：

=DGET(A1:C6;1;E1:F2) 

這假定上述數據是在A1:C6數據的下面塊，其包括搜索標準被放置在E1:F2

 
column1 column2 
C  cc 

上面列出的DGET公式的返回值是'3'。

你可以這樣做純粹是在VBA中，如果您的VBA方法放在適當的搜索條件進入細胞E2和運行DGET公式F2之前。