[已解决]拜求！多列条件数值引用解决方案

sl751016

多列条件数值引用.rar (16.17 KB, 下载次数: 42)

2011-10-26 17:46 上传

点击文件名下载附件 各位高手老师们：急切求教！

最佳答案

月排行榜 / 总排行榜

djyjysxxs

2011-10-26 19:53

Sub test()
Dim ar1(), ar2(), ar3()
Set d = CreateObject("Scripting.Dictionary")
i% = [a65536].End(xlUp).Row
ar1 = Range("a2:g" & i).Value
For i = UBound(ar1) To 1 Step -1
  d(ar1(i, 1) & ar1(i, 2)) = i
Next
i = [i65536].End(xlUp).Row
ar2 = Range("i2:m" & i).Value
ReDim ar3(1 To UBound(ar2), 1 To 1)
For i = 1 To UBound(ar2)
   i2% = d(ar2(i, 1) & ar2(i, 2))
   Do While i2 <= UBound(ar1)
      If InStr(ar1(i2, 3), "以下") Then
         ke% = Val(ar1(i2, 3))
      ElseIf InStr(ar1(i2, 3), "-") Then
         ke% = Val(Split(ar1(i2, 3), "-")(1))
      Else
         ke% = 1000
      End If
      If ar2(i, 3) <= ke Then
        If ar1(i2, 4) = "" Then
           ar3(i, 1) = ar1(i2, 6)
           i2 = UBound(ar1)
        Else
         Do While i2 <= UBound(ar1)
            If InStr(ar1(i2, 4), "以下") Then
               ke% = Val(ar1(i2, 4))
            ElseIf InStr(ar1(i2, 4), "-") Then
               ke% = Val(Split(ar1(i2, 4), "-")(1))
            Else
               ke% = 1000
            End If
            If ar2(i, 5) <= ke Then
               If ar2(i, 4) < 140 Then
                  ar3(i, 1) = ar1(i2, 6)
               Else
                  ar3(i, 1) = ar1(i2, 7)
               End If
               i2 = UBound(ar1)
            End If
            i2 = i2 + 1
         Loop
        End If
      End If
      i2 = i2 + 1
   Loop
Next
[n2].Resize(i - 1) = ar3
End Sub

跳转到最佳答案楼层

201228

只能告诉你用=SUMPRODUCT()  第三个位置文字太多，不会了。

djyjysxxs

Sub test()
Dim ar1(), ar2(), ar3()
Set d = CreateObject("Scripting.Dictionary")
i% = [a65536].End(xlUp).Row
ar1 = Range("a2:g" & i).Value
For i = UBound(ar1) To 1 Step -1
  d(ar1(i, 1) & ar1(i, 2)) = i
Next
i = [i65536].End(xlUp).Row
ar2 = Range("i2:m" & i).Value
ReDim ar3(1 To UBound(ar2), 1 To 1)
For i = 1 To UBound(ar2)
   i2% = d(ar2(i, 1) & ar2(i, 2))
   Do While i2 <= UBound(ar1)
      If InStr(ar1(i2, 3), "以下") Then
         ke% = Val(ar1(i2, 3))
      ElseIf InStr(ar1(i2, 3), "-") Then
         ke% = Val(Split(ar1(i2, 3), "-")(1))
      Else
         ke% = 1000
      End If
      If ar2(i, 3) <= ke Then
        If ar1(i2, 4) = "" Then
           ar3(i, 1) = ar1(i2, 6)
           i2 = UBound(ar1)
        Else
         Do While i2 <= UBound(ar1)
            If InStr(ar1(i2, 4), "以下") Then
               ke% = Val(ar1(i2, 4))
            ElseIf InStr(ar1(i2, 4), "-") Then
               ke% = Val(Split(ar1(i2, 4), "-")(1))
            Else
               ke% = 1000
            End If
            If ar2(i, 5) <= ke Then
               If ar2(i, 4) < 140 Then
                  ar3(i, 1) = ar1(i2, 6)
               Else
                  ar3(i, 1) = ar1(i2, 7)
               End If
               i2 = UBound(ar1)
            End If
            i2 = i2 + 1
         Loop
        End If
      End If
      i2 = i2 + 1
   Loop
Next
[n2].Resize(i - 1) = ar3
End Sub

djyjysxxs

上面的代码是在你的文件中的数据全都排好序的情况下。
就你目前传上来的，78至86行就没按你的规则排序。得象你的2至20行一样排好了才能适用上面的代码