【エクセルVBA】指定列の項目名が違う場合に1行挿入するマクロ

こんばんわ。シバマメです。

商品名などが連続しているときに、

商品名ごとで1行挿入して見やすくしたい場合があります。

短い行数の表なら手で挿入しても良いのですが、

長ーい行の場合、その作業だけで日が暮れますね。

そんなときに、指定した列の文字が連続していない場合に、

1行挿入するマクロを作成しました。

【手順】
1. 個人用マクロブックに下記のコードをコピーペースト
　　※標準モジュールを挿入して、そこにコピペでもOKです。
2. F5キーか、▶ボタンでマクロを実行
3. 「何列目で判断しますか？」というインプットボックスが表示されます。
　 数字で入力してください。
　 A列の場合は１、B列の場合は２…

Sub kugiriInsert()

    Dim Maxrow As Long
   
    Dim TargetCol As Long
   
    Dim i As Long
   
    Dim Atai As Variant
   
    Dim HikakuAtai As Variant
   
    Dim TargetRow As Long
       
        TargetRow = 2

           
        TargetCol = InputBox("何列目で判断しますか？")
           
        Maxrow = Cells(Rows.Count, 1).End(xlUp).Row
                 
             For i = 1 To Maxrow
         
                    Atai = Cells(TargetRow, TargetCol).Value
                    HikakuAtai = Cells(TargetRow + 1, TargetCol).Value
                   
                        If Atai <> HikakuAtai Then
                   
                            Rows(TargetRow + 1).Insert
                   
                                TargetRow = TargetRow + 1
                   
                        End If
               
                TargetRow = TargetRow + 1
               
            Next i
           
End Sub

↓よろしければクリックお願いします🌼
にほんブログ村