将列转换为excel中的分隔列表

t.z*_*trk 1 excel vba excel-vba excel-formula vlookup

我有一个excel文件.此文件包含每个行的不同列表.并且每个列表(整行)在每列中具有不同的值.我想转换下面给出的excel例如.在这里,我想将每一行转换为带有标题的列. 在此输入图像描述

小智 5

对于4列但是多行,将其放在G2中,

=IFERROR(INDEX($A$1:$D$4, IF(COLUMN(A:A)=1, 1, INT(ROW(10:10)/5)), MOD(ROW(1:1), 5)), TEXT(,))
Run Code Online (Sandbox Code Playgroud)

向右和向下填充.

在此输入图像描述

对于7列但是多行,

=IFERROR(INDEX($A$1:$G$4, IF(COLUMN(A:A)=1, 1, INT(ROW(16:16)/8)), MOD(ROW(1:1), 8)), TEXT(,))
Run Code Online (Sandbox Code Playgroud)

在此输入图像描述