【エクセルマクロ】空白セルを詰めて別シート転記:コピペで使えるコード

ExcelVBA-空白セルを詰めて別ファイル転記-アイキャッチ エクセルマクロで効率化する

エクセルマクロで、空白セルを詰めて別シート転記するVBAコードをご紹介します。

このページのマクロコードは、コピペで使えます。
ぜひお試しください!

空白セルを詰めて別シート転記

以下のExcelVBAを実行すると、空白行を上詰めして転記します。


Sub 空欄をつめて別シート抽出()

Dim LastRow As Long
Dim LastClm As Long
Dim i As Long
Dim j As Long
Dim Q As Long

    '最終行を取得
    LastRow = Cells(Rows.Count, 1).End(xlUp).Row
    
    '最終列
    LastClm = Range("A1").End(xlToRight).Column
    
    Q = 1

    '1~最終行までループ
    For i = 1 To LastRow
    
        For j = 1 To LastClm
        
            If Cells(i, j) <> "" Then
            
                Range(Cells(i, 1), Cells(i, LastClm)).Copy Sheets("Sheet2").Cells(Q, 1)
                Q = Q + 1
                Exit For
            
            End If
        Next j
    Next i

 End Sub

 

マクロ実行前

「Sheet1」の空白セルがわかりやすいように色付けしています。


 

マクロ実行後

空欄の行を詰めて、別シートへ転記します。


 
 
この記事がお役に立てれば幸いです。
 

【エクセルマクロ】ワークシート処理を自動化する:超便利33選
...

 

「ノンプログラマーのGAFA部長が教えるExcelマクロ入門」
挫折につながるエラーの原因も先回りして丁寧に解説
マクロのたった1割を学べばエクセル業務の9割以上は効率化できる