根据判断数值所在区间返回相应的值

zax010 · 发表于 2017-3-26 07:45

本帖最后由 zax010 于 2017-3-26 08:38 编辑

z182052237 发表于 2017-3-25 22:13
是这个意思，但是大哥，如果这时i=2时，发现A2不等于E2，那就直接结束if循环了，也就是不去查找A2而去查 ...

Sub zz()
Application.ScreenUpdating = False
ar = Range("E1").CurrentRegion
br = Range("A1").CurrentRegion
For i = 2 To UBound(br)
      For x = 2 To UBound(ar)
         If br(i, 2) >= ar(x, 2) And br(i, 2) <= ar(x, 3) And br(i, 1) = ar(x, 1) Then
            br(i, 3) = ar(x, 4): Exit For
         End If
      Next x, i
      Range("A1").CurrentRegion = br
      Application.ScreenUpdating = True
End Sub

zax010 · 发表于 2017-3-26 08:41

>>>>>>>>>>>>>>>>>>>>>>>

1.rar (15.5 KB, 下载次数: 6)

z182052237 · 发表于 2017-3-26 10:03

lsc900707 发表于 2017-3-25 23:23
恕我愚钝，实在不知如何处理了。

没事，还是特别谢谢您

z182052237 · 发表于 2017-3-26 10:04

zax010 发表于 2017-3-26 07:45
Sub zz()
Application.ScreenUpdating = False
ar = Range("E1").CurrentRegion

真的特别谢谢您，您真的太棒了，我能问下您，最后Range("A1").CurrentRegion = br是什么意思吗

zax010 · 发表于 2017-3-26 10:45

z182052237 发表于 2017-3-26 10:04
真的特别谢谢您，您真的太棒了，我能问下您，最后Range("A1").CurrentRegion = br是什么意思吗

把数组（处理完后）再放回原处。

这题目，如是单因素查找用自定义函数，多因素，觉得还是用宏。

lsc900707 · 发表于 2017-3-26 15:15

zax010 发表于 2017-3-26 10:45
把数组（处理完后）再放回原处。

这题目，如是单因素查找用自定义函数，多因素，觉得还是用宏。

开始的条件适合用自定义函数，后来楼主又增加条件了，我就没转过弯来了。

z182052237 · 发表于 2017-3-26 19:17

zax010 发表于 2017-3-26 10:45
把数组（处理完后）再放回原处。

这题目，如是单因素查找用自定义函数，多因素，觉得还是用宏。

谢谢您，我不知道为啥要把数组（处理完后）再放回原处，我觉得我的目的已经达到了呀，不知道为啥要加上这么一句Range("A1").CurrentRegion = br

		自动登录	找回密码
密码			免费注册