&引用；“扩大”；Excel中的行

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

如果您看左侧，有一列

应用程序

和一列

帐户

，它们是已批准的

应用程序

。。。然后是一些虚假的财务信息。在第2行，对于

Zip

8701

，有

9490

应用程序

和

7610

账户。我想将这一行扩展为9490行，所有行都具有相同的邮政编码和其他财务/人口统计信息，但在

已批准/未批准

下有一个二进制1或0（一个新列）

为了便于建模，我基本上希望将这些计数数据转换为大量二进制计数，因为现在有很多应用程序的拉链在模型中的权重相当大。如何在Excel中执行此操作？我不太熟悉宏，但我认为这就是答案。

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

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 

---

from

你是指列吗？@DurbnPoisin No我希望9490行的值与第2行的值相同，只是“应用程序”和“帐户”列消失了，取而代之的是二进制1/0列……因此在这9490行中，将有7610行的值为“1”，1880行的值为“0”谢谢你的回复Nemallah…不幸的是它在

行（r+1）上坏了。调整大小（单元格（r，28）-1）。插入
…我一点也不懂VB…有什么想法吗？那么输入是什么呢？整排？