2019-12-26
Sub text()
Dim i As Integer, j As Integer, k As Integer, l As Integer
Dim arr()
arr() = Range(“a1:a48”)
For i = 1 To 48
For j = 1 To 48
For k = 1 To 48
For l = 1 To 48
If arr(i, 1) + arr(j, 1) + arr(k...
原创
2019-12-26 22:52:55 ·
63 阅读 ·
0 评论