excel - 将单元格作为矩阵 VBA 返回

Question

我在一张表中有一堆单元格，如下所示:

每行的间距为 3，列的间距为 5。
我想提取这些值并将其复制到某个区域:

我将如何捕获每个单元格并创建一个这样的矩阵。我试图为此使用 VBA sub()，因为初始表大小可能会有所不同，但我不知道该怎么做。任何想法表示赞赏。

Answer 1

OP 已要求提供 VBA 解决方案，因此该答案可能会被否决!
但是，作为替代方案(如果您有最新的 Excel 版本)也许可以考虑使用电子表格函数来执行您想要的操作:
在 Sheet2 中，将此公式放入单元格中:

=LET(rngIn,Sheet1!A1:P10,x,MAX(rngIn)+1,rng,IF(LEN(rngIn)=0,x,rngIn),FILTER(FILTER(rng,INDEX(rng,1,,1)<>x),INDEX(rng,,1,1)<>x))

结果如下:

该公式基本上只是过滤掉空白:首先按行，然后按列。输入范围可以是任何范围，只要值间隔均匀，中间有空白单元格:因此无需指定间隙。此版本适用于数值数据，但可以在使用不同类型的数据时进行修改。
使用电子表格公式可以替代 VBA，因为它们不需要使用 .xlsm启用宏的工作簿。