'打开表格-按ALT+11-点击插入-点击模块-粘贴代码
Function 提取数据(a As Range)
For Each cel In a
If cel * 1 > 5.409 And cel * 1 < 5.509 Then t = t & "," & cel
Next
If t = "" Then
提取数据 = ""
Else
提取数据 = Right(t, Len(t) - 1)
End If
End Function
追问大哥,你这个只是用固定单元格数值进行比较,我的问题是在K列数组中进行提取啊。
追答提取到H3如果超过2个,用逗号隔开可以吗?
追问好象不行哦。要用到数组吧?
追答回答已修正,没有vba写不出的公式,只有你想不到的要求