【エクセルマクロ】空白以外のセルを転記(上詰め):コピペで使えるコード

vba-空白以外のセルを上詰め-アイキャッチ ExcelVBA

エクセルマクロで、空白以外のセルを上詰めするVBAコードをご紹介します。

空白以外のセルを、特定の列に転記します。

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

空白以外のセルを転記(上詰め)

以下のマクロを実行すると、空白以外のセルを指定列にコピーします。


Sub 空白以外のセルを隣の列に転記()

Dim i As Long
Dim LastRow As Long
Dim Cnt As Long

    '最終行を取得
    LastRow = Cells(Rows.Count, 1).End(xlUp).Row

    '転記開始行
    Cnt = 1
    
    Application.ScreenUpdating = False

    '1~最終行までループ
    For i = 1 To LastRow
    
        'A列が空白じゃなければ
        If Cells(i, 1) <> "" Then
        
            'B列に転記
            Cells(Cnt, 2) = Cells(i, 1)
            
            '転記開始行を更新
            Cnt = Cnt + 1
            
        End If
    Next i

    Application.ScreenUpdating = True

End Sub

 

マクロ実行後

A列が空欄以外の場合、B列に値を転記します。


 
 
この記事がお役に立ちますと幸いです。
 

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

 

「Excel自動化[最強]時短仕事術」
自動化の基礎と時短に役立つテクニック解説書
毎日の定型業務を手際良く行え、大幅な業務効率化を実現!