如何在相邻行中找出等差为2的数字，并在第三行继续求等差为2的数字

icxh

grf1973 发表于 2024-6-26 09:41
。。。。。。。。。。。。。。。

感谢你的回复，感谢你的帮助

LIUZHU

附件，请参考

icxh

LIUZHU 发表于 2024-6-26 11:49
附件，请参考

感谢你的帮助！

LIUZHU

grf1973 发表于 2024-6-26 10:10
JS做了一个，结果和VBA一样。
可以直接调用部分数组，Set去重，数组排序，比VBA方便很多。

Array.from可以将集合转换为数组，受教了

ynzsvt

1. Sub 等差2的两行数据()
   
2. Dim Arr, Brr, i&, j&, m&, k&
   
3. Dim Dic(), Dic2()
   
4. Arr = [C3:V20]
   
5. ReDim Brr(2 To UBound(Arr), 1 To 40)
   
6. m = UBound(Arr, 2)
   
7. For i = 2 To UBound(Arr)
   
8.   ReDim Dic(-1 To 82), Dic2(-1 To 82)
   
9.   For j = 1 To m
   
10.    Dic(Arr(i - 1, j)) = Arr(i - 1, j)
    
11.   Next j
    
12.   For j = 1 To m
    
13.    If Dic(Arr(i, j) - 2) <> "" Then Dic2(Arr(i, j) + 2) = Arr(i, j) + 2
    
14.    If Dic(Arr(i, j) + 2) <> "" Then Dic2(Arr(i, j) - 2) = Arr(i, j) - 2
    
15.   Next j
    
16.   k = 0
    
17.   For j = 1 To 80
    
18.    If Dic2(j) <> 0 Then k = k + 1: Brr(i, k) = j
    
19.   Next j
    
20. Next i
    
21. [X25].Resize(UBound(Brr) - 1, 40) = Brr
    
22. End Sub

复制代码

半百

请测试

1. Sub test()
   
2. ar = ActiveSheet.[a2].CurrentRegion
   
3. Set al = CreateObject("System.Collections.arraylist")
   
4. For i = 2 To UBound(ar) - 1
   
5.     For j = 3 To 22
   
6.         For l = 3 To 22
   
7.             m = ar(i, j) - ar(i + 1, l)
   
8.             If Abs(m) = 2 Then
   
9.                 mm = ar(i + 1, l) - m
   
10.                 If mm > 0 And mm < 81 And Not al.contains(mm) Then al.Add mm
    
11.             End If
    
12.         Next
    
13.     Next
    
14.     al.Sort
    
15.     Cells(i + 3, "x").Resize(1, al.Count) = al.toarray
    
16.     al.Clear
    
17. Next
    
18. End Sub
    

复制代码

准提部林

Sub Test_A1()
Dim Arr, Brr, Xrr(-2 To 99), Yrr, Zrr(-2 To 99), i&, j%, c%, v
Arr = Range([v2], [a65536].End(3))
ReDim Brr(1 To UBound(Arr), 1 To UBound(Arr, 2))
For i = 2 To UBound(Arr)
    Yrr = Xrr: Erase Xrr: Erase Zrr: c = 0
    For j = 3 To UBound(Arr, 2)
        v = Arr(i, j): Xrr(v) = 1
        If Yrr(v - 2) Then Zrr(v + 2) = 1
        If Yrr(v + 2) Then Zrr(v - 2) = 1
    Next j
    For j = 1 To 80
        If Zrr(j) Then c = c + 1: Brr(i - 1, c) = j
    Next j
Next i
[x4].Resize(UBound(Brr), UBound(Brr, 2)) = Brr
End Sub