在Excel中“扩展”行

Question

我有一个Excel电子表格，其截图如下：

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

我基本上想把这个计数数据变成很多二进制计数以便于建模，因为现在拥有大量应用程序的Zips在模型中得到了相当大的加权。我怎样才能在Excel中执行此操作？我不太熟悉宏，但我认为这就是答案。

Answer 1

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

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 

来自here.