按条件合并

grf1973

函数改成这样就可以直接引用了。比如在单元格中D2直接输入=getchoice(C2),然后下拉就行了。

1. Public Function GetChoice(xrng As Range) As String
   
2.     With Sheet1
   
3.         r = .[a65536].End(3).Row
   
4.         arr = .Range("a1:c" & r)
   
5.             c = xrng.Value: c1 = xrng.Offset(1, 0).Value: xstr = ""         'c为C列当前行字符，c1为C列下一行字符
   
6.             For j = 2 To UBound(arr)
   
7.                 If InStr(c, "<") > 0 Then            '如果c包含“<”（小于某数）
   
8.                     jdg = Val(Replace(c, "<", ""))        '提取“<”前面的数字作为判断“小于”的数值
   
9.                     If arr(j, 2) < jdg Then xstr = xstr & arr(j, 1) & "(" & arr(j, 2) & ") "      '如果条件满足，字符累加
   
10.                 End If
    
11.                
    
12.                 If InStr(c, "-") > 0 And InStr(c1, "-") > 0 Then   ' 如果c包含“-”，c1包含“-”（界于两数之间）
    
13.                     jdg = Val(c): jdg1 = Val(c1)
    
14.                     If jdg <= arr(j, 2) And arr(j, 2) < jdg1 Then xstr = xstr & arr(j, 1) & "(" & arr(j, 2) & ") "
    
15.                 End If
    
16.                
    
17.                 If InStr(c, "-") > 0 And InStr(c1, "-") = 0 Then   '如果c包含“-”，c1不包含“-”（大于某数）
    
18.                     jdg = Val(c)
    
19.                     If jdg <= arr(j, 2) Then xstr = xstr & arr(j, 1) & "(" & arr(j, 2) & ") "
    
20.                 End If
    
21.                
    
22.             Next
    
23.             GetChoice = Trim(Replace(xstr, "(.", "(0."))   '因为小数如0.23的“0”不显示，所以遇到“(.”就替代成“(0.”
    
24.     End With
    
25. End Function

复制代码