特定の文字が見つかった場合Excelに新しい行を挿入する方法

Question

私はExcelのマクロを特に新規に使用していますが、ワークシートの特定のポイントを超える行を追加するマクロをセットアップしようとしています。

もう1つの例は、私が望むものではないループメソッドを示しています。最初の特定の文字の上に新しい行を挿入したいが、繰り返しはしない。私はあなたに例を示します。

enter image description here

これは可能ですか？どうやって？

ありがとうございました。

Answer 1

これは、それを行う2つの以上の行が行（I）.Resize（2）.Insert

---

参考リンク

を使用追加するには

Option Explicit 
Public Sub Example() 
    Dim i& 

    With ThisWorkbook.Worksheets("Sheet2") 
     For i = Cells(Rows.Count, ["A"]).End(xlUp).Row To 2 Step -1 
      If Cells(i - 1, ["A"]) <> Cells(i, ["A"]) Then Rows(i).Insert 
     Next i 
    End With 

End Sub 

以下の例を参照してください必要があります

Excel VBA Shortcut Range References

Range.Resize Property (Excel)

---

_{Range.Resize Property (Excel)指定範囲のサイズを変更します。サイズ変更された範囲を表すRangeオブジェクトを返します。}