在Excel中“展开”行

我有一个Excel电子表格，其中的屏幕截图在这里给出：

如果你看左侧，有一列Applications和一列Accounts是经批准的applications …然后是一些虚拟的财务信息。 在第2行中，对于Zip 8701 ，有9490 Applications和7610 Accounts 。 我想将这一行扩展为9490行，所有行都使用相同的Zip和其他财务/人口统计信息，但在Approved/Disapproved （新列）下使用二进制1或0。

我基本上想把这个计数数据转换成大量的二进制计数来简化build模，因为现在有很多应用程序的Zips在模型中的权重相当大。 我怎样才能在Excel中做到这一点？ 我不太熟悉macros，但我认为这是答案。

Answer 1

尝试使用macros：这里有一个简单的代码：

 Option Explicit Sub DuplicateRows() 'Code modified from Stanley D Grom Ozgrid.com' Dim r As Long, lr As Long Application.ScreenUpdating = False lr = Cells(Rows.Count, 28).End(xlUp).Row For r = lr To 2 Step -1 Rows(r + 1).Resize(Cells(r, 28) - 1).Insert Rows(r).Copy Rows(r + 1).Resize(Cells(r, 28) - 1) Next r Application.ScreenUpdating = True End Sub 

从这里。