如何在VBA中每列2行生成对角线矩阵？

Question

我试图将带有角和面部点的实验生成器的动态设计组合在一起。

例如（假设3个变量）：

面部点具有格式中的矩阵（so＃rows = 2*＃vars，cols = #vars）

var1	var2	var3 var3
1	0.5 0.5	0.5 0.5
0	0.5	0.5 0.5
0.5	1	0.5 0.5
0.5	0	0.5
0.5	0.5 0.5 0.5	1
0.5 0.5 0.5	0.5 0.5	0

拐角点只有对角线矩阵（变量的行/cols =＃变量）

var1	var2	var3
1	0	0 0
0 0	1	0 0
0 0	0 0	1

是的，我可以做到这一点在MATLAB中简单，但是如果我可以严格将其保留在Excel中，那就更好了。试图使其动态化变得棘手，因此它不仅是3个变量，还基于用户输入（可能大于200个）。我还希望该矩阵从C11开始的新表输入到面部点，然后输入到角点的动态行号（该曲线在面部后立即开始）。

有人精通VBA愿意提供帮助吗？

更新（06/15）：

我需要从：

to：：

变量的列数=（示例）（示例为3个变量）

face point lows的数量= 2 *变量的（＃）

变量行的数量=变量的（＃）。

（＃）变量基于用户输入是动态的。