根據其值添加單元格上方的空行

Question

在列A中，我以固定間隔在單元格中具有字符串'new height'：A1,A5803,A11605等等，每5802行。

我想在每個包含字符串'new height'的單元格上面添加2391個空行。

任何人都可以幫助我嗎？

Answer 1

我從奧利Excel的論壇這個答案，並將其工程─

Sub foo() 
    Const lRows As Long = 2391 
    Const sText As String = "new height" 

    Dim s() As String 
    Dim i As Integer 

    Application.ScreenUpdating = False 

    With ActiveSheet 
     .AutoFilterMode = False 
     .Range("A:A").AutoFilter field:=1, Criteria1:=sText 
     s = Split(.AutoFilter.Range.SpecialCells(xlCellTypeVisible).Address, ",") 
     .AutoFilterMode = False 
     For i = UBound(s) To LBound(s) Step -1 
      .Range(s(i)).Resize(lRows, 1).EntireRow.Insert 
     Next i 
    End With 

    Application.ScreenUpdating = True 

End Sub