excel中设置两个随机数相减在一个区间范围

在A、B输入差的范围，被减数范围；

D2公式 =RANDBETWEEN(A$4,B$4)

E2公式  =D2-RANDBETWEEN(A$2,B$2)

F2公式  =D2-E2

D、E、F 列同时下拉 。

代码如下：

Sub myms()
Dim a&, b&
Do
    a = Int(Rnd() * 100)
    b = Int(Rnd() * 100)
Loop Until a - b > 3 And a - b < 10
If Range("A1") = "" Then
    Range("a1").Resize(1, 2) = Array(a, b)
Else
    Range("a65536").End(xlUp).Offset(1, 0).Resize(1, 2) = Array(a, b)
End If
End Sub

效果如下 ：