Excel公式或macros自动将长格式数据转换为宽格式

我想要具有将数据的长forms转换为广义forms的function。 这意味着每个级别的因素将在excel的单独列中。

我想让这个过程自动化,这样每次我都不需要做很多的复制和粘贴时,一个因素的层数很高。

像下面这样:

在这里输入图像说明

使用移调function并使用Ctrl + Shift + Enter(数组function)将其应用于EH范围。 如果大小增长,只需​​select更大的范围E2:xx再次使用Ctrl + Shift + Enter应用公式。

自动化使用VBA代码工作,如:

 Range("J5:O13").Select Selection.FormulaArray = "=TRANSPOSE(R[-3]C[-8]:R[13]C[-6])"