[已解决]EXCEL函数把相邻两个数字两两相减

laoau138

EXCEL函数把相邻两个数字两两相减  

最佳答案

月排行榜 / 总排行榜

france723

2017-5-7 23:53

仅仅是两两相减的话，代码如下

1. Sub aaa()
   
2. Dim y, ar, i, br, j, n
   
3. y = Range("a65536").End(3).Row
   
4. ar = Range("a1:h" & y)
   
5. For j = 1 To UBound(ar)
   
6.     ReDim br(1 To 1)
   
7.     n = 0
   
8.     For i = 3 To 7
   
9.         n = n + 1
   
10.         ReDim Preserve br(1 To n)
    
11.         br(n) = Abs(ar(j, i) - ar(j, i + 1))
    
12.     Next i
    
13.     Range("j" & j).Resize(1, 5) = br
    
14. Next j
    
15. End Sub

复制代码

跳转到最佳答案楼层

france723

仅仅是两两相减的话，代码如下

1. Sub aaa()
   
2. Dim y, ar, i, br, j, n
   
3. y = Range("a65536").End(3).Row
   
4. ar = Range("a1:h" & y)
   
5. For j = 1 To UBound(ar)
   
6.     ReDim br(1 To 1)
   
7.     n = 0
   
8.     For i = 3 To 7
   
9.         n = n + 1
   
10.         ReDim Preserve br(1 To n)
    
11.         br(n) = Abs(ar(j, i) - ar(j, i + 1))
    
12.     Next i
    
13.     Range("j" & j).Resize(1, 5) = br
    
14. Next j
    
15. End Sub

复制代码

laoau138

france723 发表于 2017-5-7 23:53
仅仅是两两相减的话，代码如下

这个需要用函数做

tgydslr

J1

1. =SMALL(ABS($C1:$G1-$D1:$H1),COLUMN(A1))

复制代码

三键横拉下拉