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

我有一个excel文件。此文件包含每行的不同列表。每个列表整行的每个列中都有不同的值。例如，我想转换下面给出的excel。在这里，我想把每一行都转换成一列，并在其旁边加上标题。

---

对于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(,))

从右到下填充

对于7列的行数

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

---

对于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(,))

从右到下填充

对于7列的行数

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

---

投票赞成使用Excel函数来完成此操作，而不是求助于VBScript。美好的谢谢@CraigCocca-我很无聊，只是周末没有太多质量问题。uuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuu！漂亮的完成伙伴：周末是多余的。投票赞成使用Excel函数来完成这项工作，而不是求助于VBScript。美好的谢谢@CraigCocca-我很无聊，只是周末没有太多质量问题。uuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuu！漂亮的伴侣：周末是多余的。