[已解决]相邻两个数的任意数

HNZZHGY

如何用VBA对一列中进行查找，找到任意的相邻两个数之间的空格写上这两个数之间的任意数。

最佳答案

月排行榜 / 总排行榜

grf1973

2016-10-19 17:08

1. Sub tt()
   
2.     r = [a65536].End(3).Row
   
3.     arr = Range("a1:a" & r)
   
4.     s = 1
   
5.     For i = 1 To r
   
6.         If Len(arr(i, 1)) > 0 Then
   
7.             e = i
   
8.             If e > s Then
   
9.                 x = Val(arr(s, 1)): y = Val(arr(e, 1))
   
10.                 xmax = IIf(x > y, x, y): xmin = IIf(x < y, x, y)
    
11.                 For j = IIf(s = 1, 1, s + 1) To e - 1
    
12.                     arr(j, 1) = Application.WorksheetFunction.RandBetween(xmin * 10000, xmax * 10000) / 10000
    
13.                 Next
    
14.                 s = i
    
15.             End If
    
16.         End If
    
17.     Next
    
18.     Range("a1:a" & r) = arr
    
19. End Sub
    

复制代码

跳转到最佳答案楼层

grf1973

假设数据在A列。

1. Sub tt()
   
2.     r = [a65536].End(3).Row
   
3.     arr = Range("a1:a" & r)
   
4.     For i = 2 To r - 1
   
5.         x = arr(i - 1, 1): y = arr(i + 1, 1)
   
6.         If arr(i, 1) = "" And x <> "" And y <> "" Then
   
7.             xmax = IIf(x > y, x, y): xmin = IIf(x < y, x, y)
   
8.             arr(i, 1) = Application.WorksheetFunction.RandBetween(xmin, xmax)
   
9.         End If
   
10.     Next
    
11.     Range("a1:a" & r) = arr
    
12. End Sub
    

复制代码

HNZZHGY

不行啊，运行没有出现数据！看看是什么原因，谢谢！

grf1973

1. Sub tt()
   
2.     r = [a65536].End(3).Row
   
3.     arr = Range("a1:a" & r)
   
4.     s = 1
   
5.     For i = 1 To r
   
6.         If Len(arr(i, 1)) > 0 Then
   
7.             e = i
   
8.             If e > s Then
   
9.                 x = Val(arr(s, 1)): y = Val(arr(e, 1))
   
10.                 xmax = IIf(x > y, x, y): xmin = IIf(x < y, x, y)
    
11.                 For j = IIf(s = 1, 1, s + 1) To e - 1
    
12.                     arr(j, 1) = Application.WorksheetFunction.RandBetween(xmin * 10000, xmax * 10000) / 10000
    
13.                 Next
    
14.                 s = i
    
15.             End If
    
16.         End If
    
17.     Next
    
18.     Range("a1:a" & r) = arr
    
19. End Sub
    

复制代码

laoau138

grf1973 发表于 2016-10-19 09:24
假设数据在A列。

用VBA统计按钮控制数值变化  五行出现总次数

http://www.excelpx.com/thread-425153-1-1.html