excel マクロ

質問

ＥＸＣＥＬでデータが100行の表があるとする。
データのない行を削除し行を詰めるマクロは？

イメージはこんな感じとおもうのでうが
Sub Macro1()
'if文であるｎ行がデータがないかどうか判定ＹＥＳなら
Rows("n:n").Select
Selection.Delete Shift:=xlUp

End Sub

回答No.1

merlionXX · ベストアンサー

こんな感じでしょうか。

Sub test01()
With ActiveSheet 'アクティブなシートにおいて
lr = .UsedRange.Cells(.UsedRange.Count).Row '最終行取得
For i = lr To 1 Step -1 '最終行から1行目まで下から順に見る
If Application.CountBlank(Rows(i)) = 256 Then Rows(i).Delete '空白セルが256ある行を削除
Next '次へ
End With
End Sub

お礼

解決しました。
どうもありがとうございました。

回答No.2

NCU

ジャンプ→空白セル→削除→行全体

の操作をマクロ記録なさればよろしいかと。

お礼

あなたさまの回答を見て、本日ＥＸＣＥＬの式を自分でつくらないでマクロを使う使い方というのを、
初めて理解しました。非常に感謝します。