|
发表于 2022-5-21 15:44
|
显示全部楼层
本楼为最佳答案
本帖最后由 心正意诚身修 于 2022-5-21 15:47 编辑
- Sub 数据生成()
- Dim i As Integer, arr(), j As Integer, k As Integer, s As Byte
- ReDim arr(1 To 200, 1 To 2)
- Range("c2:d200").ClearContents
- i = Range("b2").End(xlDown).Row
- For j = 2 To i
- For s = j + 1 To i
- k = k + 1
- arr(k, 1) = Range("b" & j)
- arr(k, 2) = Range("b" & s)
- Next
- Next
- Range("c2").Resize(k, 2) = arr
- End Sub
复制代码 |
|