如何在大電子表格中的特定單元格之前插入空行？

Question

我有一個大型的電子表格，大約200,000行，並且我想在每100個序列號後面插入一行，但是而不是行號。

我發現，通過行號插入宏，但那不是我想要的。

Answer 1

我想你的意思：

Dim theRange As Range 
Dim idx As Long 

Set theRange = Sheet1.UsedRange ''Or other appropriate sheet 
idx = Range("A" & Rows.Count).End(xlUp).Row ''Where A is your serial number 

For i = idx To 1 Step -1 

    If theRange.Cells(i, 1) Mod 100 = 0 Then 
     Rows(i).Insert shift:=xlShiftDown 
    End If 

Next