|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
采纳,谢谢你,我可以构造出矩阵链了。
- Sub 构造矩阵链()
- Dim A()
- Dim B()
- p = Array(5, 10, 3, 12, 5, 50, 6, 4, 6, 11, 16, 18, 19, 23)
-
- ReDim A(1 To UBound(p))
-
- For i = 1 To UBound(p)
- ReDim B(1 To p(i - 1), 1 To p(i))
- A(i) = B
-
- Next i
- For i = 1 To UBound(p)
- For j = 1 To p(i - 1)
- For k = 1 To p(i)
- A(i)(j, k) = k + p(i) * (j - 1)
-
- Next k, j, i
-
- cc = 1
- For i = 1 To UBound(p)
-
- Range("A" & cc).Resize(UBound(A(i), 1), UBound(A(i), 2)) = A(i)
- cc = cc + UBound(A(i), 1) + 1
- Next i
-
- End Sub
复制代码 |
|