空白行削除

質問

宜しくお願いします。
1枚のファイルシートに14ブロックのデータが貼り付けてあります。各ブロック行の長さは違く、ランダムに貼り付けてあります。例えば、データ 何百行の空白 データ…と繰り返されており、約3万5千行ぐらいあります。
空白行削除で多分半分近くまで上に詰められれば良いのですが、たくさんあるのでマクロで教えていただければと思います。ネットでころがってるデータ試してみたのですが(1部)
ENDLESSに実行されて、出来てるのかどうかも確認はとれてません。ちなみに自分のシートに貼ってあるデータはA列からAS列まであり数字、文字混在です。また各ブロックの終わりは集計行となっており、空白セルがまじってます。宜しくお願いします。

回答No.1

tanakanono · ベストアンサー

フィルタで空欄のみチェックをはずして、
すべてコピー、別シートに貼り付け
というのはどうですか？

マクロでエンドレスにならないようにするためには、最後の行を一番最後から調べればよいです。
「VBA 最後の行を調べる」で検索するといろいろ出てきます。
MaxRow = Range("A1").End(xlDown).Row

補足

ご回答ありがとうございます。すいません、データが何ヶ月各日数分たまってるのでマクロで、つくれば楽かなと思いました。でもそのやり方をマクロで組むことはできますか？自分で手動で組んでみますが、例えば空白のチェック外して、残りをコピーして、sheet2に貼り付けは、できますよね？すいません、今出先なもので、すぐに実行できませんが、戻ったら試してみます。できる、と答えてい例えばだければあと1つ、このシートは毎日の売上データで、こレを、行上に詰めて、30日分、31日分を1枚のシートに貼り付けるのが最終型なのですが、もちろん上は1各月の1日から順に貼り付けたいです。こちらのマクロも合わせてお願いします。宜しくお願いします。

回答No.3

kagakusuki

下記の様なマクロでは如何でしょうか？
　尚、シート上に存在する空白行の内、何行目以下に存在する空白行から削除対象にすれば良いのかという事が御質問文中で説明されていなかったため、取り敢えず1行目以下に存在する空白行から削除対象にする様なマクロにしております。
　それと、御質問内容から考えて、ワークシート関数が入力されているセルであっても、そのワークシート関数による処理の結果が　""　になっているセルに関しては削除した方が良いものと思われましたので、例えワークシート関数が入力されているセルであっても、関数が返した値が空欄となっているセルに関しては構わず削除する様になっております。

Sub QNo9162665_空白行削除()

Const myColumns = "A:AS"
Const FirstRow = 1
Dim myRange As Range

With Application
.ScreenUpdating = False
.Calculation = xlManual
End With

Set myRange = Intersect(Range(myColumns), Range(FirstRow _
& ":" & Cells.SpecialCells(xlCellTypeLastCell).row))
With myRange
.SpecialCells(xlCellTypeConstants, 23).EntireRow.Hidden = True
.SpecialCells(xlCellTypeVisible).Delete Shift:=xlUp
End With
Rows.Hidden = False

With Application
.Calculation = xlAutomatic
.ScreenUpdating = True
End With

補足

ご回答ありがとうございます。この式を使わせて頂きましたが、最初のconstというところで止まりコンパイルエラーがでました。すいません、結局最初に言ってくれた方法でマクロを組んで解決しました。出来れば、この作業は1日分の作業で、つぎに月間の貼り付けをしたいのですが、3月なら31日、4月なら30日までのまいにちのデータを1つに張り合わせるマクロ教えて頂ければと思います。約上に詰めて3万行、掛けて約90から～93万行にまとめたいのですが、マクロ教えて下さい。宜しくお願いします。

回答No.2

imogasi

補足すること。
エクセルを少し知っている人なら、下記をやってみようとすると思う。「それではうまく行かないなら、その旨を質問に前もって注記するはず。
ＶＢＡも経験ないのではないかと思うがどうですか。仕事でエクセルをつかうなら、必須だと思うよ。
ーー
下記操作でできないか。
・シートの全セル選択。またはデータのある行とな列まで選択。
ＣＴＲＫ＋Ｇ
・セル選択ボタンをクリック（またはＡＬＴ＋Ｓ）
・「空白セル」のボタンをクリック
・「ホーム」タブの「セル」のブロックの「シートの行の削除」をクリック
空白行が削除されるはず。
ただデータに複雑な事情があればうまく行かないかも。その事情（原因）を説明できるかな。
その時はＶＢＡなど考える。

補足

ご回答ありがとうございます。とりあえず、フィルタ空白削除実行したのですが、前記のとおりランダムに貼り付けてあるので、空白がでて削除しようと思ったら、隠れてないブロックデータがあらわれたので、ダメだと思い質問してみました。データがいっぱいあるので、マクロで空白行削除のを、探してるのですがうまく行きません。どうか宜しくお願いします。