その値に応じてセルの上に空の行を追加する

Question

列Aに固定間隔でセルに「新しい高さ」という文字列があります。A1,A5803,など、5802行ごとです。

文字列 'new height'を含む各セルの上に2391個の空の行を追加したいとします。

誰もがこれを手伝ってくれますか？

Answer 1

あなたはVBAマクロを考えがあり、私はエクセル・フォーラムにオリーからこの答えを持って、それが

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