excel vba語法forvaluate（“ min（index（row

Question

從另一篇文章中， 將行與我收到的重復項合並 ，但是在解析評估行時遇到問題。

mr = Application.Evaluate("MIN(INDEX(ROW(1:" & rw & ")+(('" & wsn & "'!B1:B" & rw & "<>'" & wsn & "'!B" & rw & ")+('" & wsn & "'!C1:C" & rw & "<>'" & wsn & "'!C" & rw & "))*1E+99, , ))")

1. 我最初陷入困境

   INDEX(ROW(1:" & rw & ")

我知道Row函數提供行號，但是上面的語法是1：rw或??范圍。

2. +號是邏輯OR語句嗎？

如果有人可以提供一個簡單的MIN（INDEX（ROW（...

Answer 1

如有疑問，請在“立即”窗口中調試公式。 這是一個例子

Sub Sample()
    Dim sFormula As String
    Dim rw As Long
    Dim wsn As String

    rw = 1      '<~~ Giving them some fictitious values. Give actual value if you have one
    wsn = "Sid" '<~~ Giving them some fictitious values. Give actual value if you have one

    sFormula = "MIN(INDEX(ROW(1:" & _
               rw & _
               ")+(('" & _
               wsn & _
               "'!B1:B" & _
               rw & _
               "<>'" & _
               wsn & _
               "'!B" & _
               rw & _
               ")+('" & _
               wsn & _
               "'!C1:C" & _
               rw & _
               "<>'" & _
               wsn & _
               "'!C" & _
               rw & _
               "))*1E+99, , ))"

    Debug.Print sFormula

    'mr = Application.Evaluate(sFormula)
End Sub

然后，該公式對您很清楚：)

您甚至可以將該公式復制到新的表格中進行測試。