|
发表于 2015-12-7 14:19
|
显示全部楼层
本楼为最佳答案
- Sub test()
- Dim x As Integer, arr, m As Integer
- Set d = CreateObject("SCRIPTING.DICTIONARY")
- Set d1 = CreateObject("SCRIPTING.DICTIONARY")
- arr = Sheets(1).Range("e2:f" & Sheets(1).Range("e65536").End(3).Row)
- n = InputBox("请输入每个分系统需要的个数", , 100)
- ReDim brr(1 To n * UBound(arr), 1 To 3)
- For x = 1 To UBound(arr)
- For j = 1 To n
- k = k + 1
- brr(k, 1) = k
- brr(k, 2) = arr(x, 1)
- brr(k, 3) = arr(x, 2)
- Next
- Next
- With Sheets(2)
- .[a2].Resize(10000, 3).ClearContents
- .[a2].Resize(k, 3) = brr
- End With
- End Sub
复制代码 |
|