【エクセルマクロ】空白以外のセルを転記(上詰め)：自動化

エクセルマクロで、空白以外のセルを上詰めする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列に値を転記します。

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

【エクセルマクロ】シートの追加・削除を自動化：超便利12選

エクセルマクロで、ワークシートの追加・削除を自動化するVBAコードをご紹介します。どのマクロコードも、コピペで使用できます。ぜひお試しください！

kirinote.com

2023.09.03