- Sub yy()
- Dim Arr As Variant, Brr As Variant, Crr As Variant, Drr As Variant
- Dim a As Long, b As Long, C As Long
- Arr = Range("A2").CurrentRegion.Value
- Brr = Range("F3:H" & Cells(Rows.Count, "F").End(xlUp).Row).Value
- ReDim Crr(1 To UBound(Brr), 1 To 1)
- For a = 1 To UBound(Brr)
- Drr = Split(Brr(a, 3), "、")
- For b = LBound(Drr) To UBound(Drr)
- For C = 1 To UBound(Arr)
- If Arr(C, 1) = Brr(a, 1) And Arr(C, 2) = Brr(a, 2) And "、" & Arr(C, 3) & "、" Like "*、" & Drr(b) & "、*" Then
- If Crr(a, 1) = "" Then
- Crr(a, 1) = Arr(C, 4)
- ElseIf Crr(a, 1) > Arr(C, 4) Then
- Crr(a, 1) = Arr(C, 4)
- End If
- End If
- Next C
- Next b
- Next a
- Range("I3").Resize(UBound(Crr)) = Crr
- End Sub
复制代码
查找对应最小值.rar
(19.73 KB, 下载次数: 0)
|