- Sub test()
- Dim arrOri, arrRst, i&, c&, c1&, c2&, c3&
- arrOri = Range("a2:j" & Cells(Rows.Count, 1).End(3).Row)
- ReDim arrRst(1 To UBound(arrOri), 1 To Application.Combin(10, 3))
- For i = 1 To UBound(arrOri)
- c = 0
- For c1 = 1 To 8
- For c2 = c1 + 1 To 9
- For c3 = c2 + 1 To 10
- c = c + 1
- arrRst(i, c) = arrOri(i, c1) & arrOri(i, c2) & arrOri(i, c3)
- Next
- Next
- Next
- Next
- [l2].Resize(i - 1, UBound(arrRst, 2)) = arrRst
- End Sub
复制代码 |