求在Wps文档表格中插入随机数的VBA代码

excel和word运用的VBA是一样的
如果还是有问题的话，再百度HI我吧
Sub 插入()
Dim x1, x2, x3, x4
x1 = Format(Int(11 * Rnd - 5), "+0;-0;0;@")
x2 = Round(3 * Rnd - 1, 1)
x3 = Round(Abs(x1 - x2), 1)
x4 = Format(x1 * x2, "+0.0;-0.0;0;@")
Dim table As table
Set table = ThisDocument.Tables.Add(Selection.Range, 2, 2)
With table
If .Style "网格型" Then
.Style = "网格型"
End If
.Cell(1, 1).Range.InsertAfter x1
.Cell(1, 2).Range.InsertAfter x2
.Cell(2, 1).Range.InsertAfter x3
.Cell(2, 2).Range.InsertAfter x4
End With
End Sub

温馨提示：答案为网友推荐，仅供参考

当前网址：https://verywind.cn/ee/3reyvex3jy32x3f7xe.html