用一个标识符将一行分成几个

我有一个大的电子表格，我想分成几行。

格式如下：

ID ABCD

这些在单独的列中，我希望它们以格式显示

ID A
ID B
ID C
ID D
ID2 A
ID2 B
ID2 C
ID2 D

等等。 我真的不知道我能做到这一点 – 任何帮助表示赞赏。

Answer 1

你可以在这个超级用户的线程中findVBA和基于公式的解决scheme，并有详细的解释。

VBA代码量身定制您的情况：

Sub NewLayout() ' go over the rows outrow = 0 For rowi = 1 To Cells.Find("*", [A1], , , xlByRows, xlPrevious).Row ' go over columns B..E For coli = 2 To 5 ' for every cell: move down a row, copy id, cell value outrow = outrow + 1 Cells(rowi, 1).Copy Destination:=Cells(outrow, 10) Cells(rowi, coli).Copy Destination:=Cells(outrow, 11) Next coli Next rowi End Sub