求助各位老师，VBA根据数据源查找数值等于重新赋值，谢谢！

13602822168

求助各位老师，
VBA根据数据源查找全部数值等于（OE2）的数值的二个数，刚好又相隔11行（OE3）的数值，在OD:SY这个固定区域重新赋值12显示出来。

扇扇扇

数据源数组外层按列循环，内层按行循环。
当前值=OE2时进行判断1:当前行至间隔11行的行数是否小于或等于数据源数组最大下标，是则继续判断2，否则进入外层下一列循环。判断2:当前值是否等于间隔11行的值，是则将结果数组此行赋值12，并继续向下个间隔行进行判断2，否则进入内层下一行循环。
循环结束后输出结果数组。

cidanji

cyq4896

参与一下...

usedrange

1. Sub tt()
   
2.     Dim ar, i%, j%, g, v, c%, r%
   
3.     With Sheet1
   
4.         Set ar = .Range("jg6:ob" & .[ob6].End(4).Row)
   
5.         v = .[oe2]: g = [oe3] + 1
   
6.         For i = 1 To UBound(ar.Value, 2)
   
7.             For j = 1 To UBound(ar.Value)
   
8.                 If ar(j, i) = v And ar(j, i) = ar(j, i).Offset(g, 0).Value Then
   
9.                     r = ar(j, i).Offset(g, 0).Row
   
10.                     c = ar(j, i).Offset(g, 0).Column + 127
    
11.                     .Cells(r, c) = 12
    
12.                 End If
    
13.             Next j
    
14.         Next i
    
15.     End With
    
16.     Set ar = Nothing
    
17. End Sub
    

复制代码

13602822168

usedrange 发表于 2024-8-30 11:19

谢谢帮助！！！！！！

13602822168

cyq4896 发表于 2024-8-30 10:04
参与一下...

谢谢！差了一行,,看看是哪里错了。感谢,感谢！！

13602822168

cidanji 发表于 2024-8-30 09:12

谢谢！差了一行,,看看是哪里错了。感谢,感谢！谢谢帮助！！

cidanji

13602822168 发表于 2024-8-30 13:42
谢谢！差了一行,,看看是哪里错了。感谢,感谢！谢谢帮助！！

cyq4896

13602822168 发表于 2024-8-30 13:42
谢谢！差了一行,,看看是哪里错了。感谢,感谢！！

修改好了...