[[20210905215701]]　『複数の行に挿入する方法』（かず）　ページの最後に飛ぶ

『複数の行に挿入する方法』（かず）

A列に「＊」がある行のみ、行挿入を一度にする方法はありませんか。
現在は、CTRL+「+」で行挿入をしていますが、100行くらいあるので、マクロなど、簡単に行挿入する方法はないでしょうか。
ご教授いただけると幸いです。

　　 A　　　　　　　　A
１　＊　　　　　　１　＊
２　＊　　　　　　２
３　　　　　　　　３　＊
４　＊　　　⇒　　４
５　　　　　　　　５　
６　　　　　　　　６　＊
７　＊　　　　　　７
８　＊　　　　　　８　
　　　　　　　　　９
　　　　　　　　　10　＊
　　　　　　　　　11
　　　　　　　　　12　＊

＜使用 Excel：Excel2013、使用 OS：Windows10 ＞

 Sub test()
    Dim i As Long
    For i = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
        With Cells(i, 1)
            If .Value = "*" Then .Offset(1).EntireRow.Insert xlDown
        End With
    Next i
 End Sub
（xxx） 2021/09/06(月) 07:13

ありがとうございます。
返信ありがとうございます。早速試してみます。
（かず） 2021/09/06(月) 19:31

上記の質問の続きですが、”＊”のある行の上に1行挿入するには、どのようにすればよいでしょうか。

（かず） 2021/09/08(水) 13:51

＞”＊”のある行の上に1行挿入する
"上"にではなくて、"その行"に挿入と考えてみればよいとおもいます。

（もこな２） 2021/09/08(水) 14:08

返答ありがとうございます。
その行に挿入させるには、どのように下記内容を変更すればよろしいでしょうか。
初心者の為、試行錯誤しています。ご教授頂ければ幸いです。

Sub test()

    Dim i As Long
    For i = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
        With Cells(i, 1)
            If .Value = "*" Then .Offset(1).EntireRow.Insert xlDown
        End With
    Next i
 End Sub
（かず） 2021/09/08(水) 15:06

＞初心者の為、試行錯誤しています。
その試行錯誤で、それぞれが何をやっているか理解できているのですよね？
↓は何をやっていますか？

 With Cells(i, 1)
   .Offset(1).EntireRow.Insert

（もこな２） 2021/09/08(水) 16:58

ご指摘の内容をもう一度確認し、問題解決することができました。
ありがとうございました。
（かず） 2021/09/10(金) 12:38

コメント返信：

[ 一覧(最新更新順) ]

[[20210905215701]] 『複数の行に挿入する方法』（かず） ページの最後に飛ぶ

[[20210905215701]]　『複数の行に挿入する方法』（かず）　ページの最後に飛ぶ