VBA 空白行削除して上につめる

Question

今年一発目の質問です。よろしくお願い致します。

作業後の差分だけを抜き出したら、空白ができました。
この空白を消して、上に詰めるには、どうしたらいいでしょう？

Range(cells(x1,y2),cells(x2,y2)).Delete Shift := xlShiftUp

を使えばいいのは、わかっているのですが・・・・
一時的に空白行のアドレス番地を格納しておいて削除するとかですかね？
ちなみに、まだ、コレクションとか、配列は美学習です。
(まだまだ超初心者ですので・・・）

ちなみに全体のコードは以下です。

'差分抽出マクロ

Sub test1()
Dim i As Long '作業前用カウンタ変数
Dim j As Long '作業後用カウンタ変数
Dim diff As Long '差分書き出し用変数
Dim A_MaxRow As Long
Dim D_MaxRow As Long

'作業前のMACを元に作業後のMACアドレスの比較を行う
i = 3
    Do While Cells(i, 1).Value <> ""
        j = 3
        Do While Cells(j, 4).Value <> ""
            If Cells(i, 1) = Cells(j, 4) Then
                Cells(i, 3).Value = "after_match" '作業後のMAC有り
            End If
            j = j + 1
        Loop
        i = i + 1
    Loop

'作業後のMACを元に作業前のMAアドレスんの比較を行う
j = 3
    Do While Cells(j, 4).Value <> ""
        i = 3
        Do While Cells(i, 1).Value <> ""
            If Cells(j, 4) = Cells(i, 1) Then
                Cells(j, 6).Value = "befor_match"
            End If
            i = i + 1
        Loop
        j = j + 1
    Loop

'xx_matchが無いものが差分なので別セルへ抜き出す
'作業前でafter_matchが無いMACとホスト名を別セル(h列、i列)へ抜き出す
diff = 3
A_MaxRow = Cells(Rows.Count, 1).End(xlUp).Row

    For i = 3 To A_MaxRow
         If Cells(i, 3).Value <> "" Then
   
        Else
             Range(Cells(i, 1), Cells(i, 2)).Cut Destination:=Range(Cells(diff, 8), Cells(diff, 9))
            diff = diff + 1
        End If
    Next i
    
    
'作業後でbefor_matchが無いMACとホスト名を別セル(j列、l列)へ抜き出す
diff = 3
D_MaxRow = Cells(Rows.Count, 4).End(xlUp).Row

    For j = 3 To D_MaxRow
        If Cells(j, 6).Value <> "" Then
            
        Else
            Range(Cells(j, 4), Cells(j, 5)).Cut Destination:=Range(Cells(diff, 10), Cells(diff, 11))
            diff = diff + 1
        End If
    Next j
    

'空白行を削除して上に詰める

'まったくわからない～
        
End Sub

差分比較データー

ご教授下さい。

Answer 1

年始にお疲れ様です。

空白行を削って詰める場合は
一番下の列から見て、空白セルを見つけたら削る、のがいいですよ。
step=-1 で for～nextの値が増減が決められます
ご参考になりましたら。

for Row=最終行 to 対象の一番上の列番号 step=-1
 if 対象セル="" then
  空白セルを削る処理
 end if
next

Comments

[退会済みユーザー]

なるほど！！
やっぱりプログラム出来る人って、思考が凄い！！

有難うございます！！無事解決できました！！