空白セルをつめる。

質問

エクセルです。　空白のセルがあるので上方向に詰めたいのですが、よい操作方法ありますか？　この場合はVBAを使用したほうが良いですか？

ctrl+Gで空白行を削除できるのは知っているのですが、
行を削除すると困るのでそれ以外の方法を探してます。

A1　　　A1
×　　　×　　　
　　　　×　
×　　　×　

×　

上のように、上方向へ詰めたいのです。

回答No.1

KODAMAR · ベストアンサー

×印の下のセルで右クリック→削除→上方向へシフト

でできますよ。

補足

うまくいかないです。

範囲指定して、右クリック、削除、上方向へシフト

すると、範囲指定したところが削除されていまいました。
○×も消えてしまいました。

どうしてだろう。？？？

回答No.6

arikui

Ａ１列をキーにして、データ並べ替えをすると、Ａ１が空白の行が、先頭か最後に集まります。

もし現状の行の順番を変えたくなければ、列を挿入し、そこに１～の連番を入れた後、Ａ１列をキーにして、データ並べ替えをします。
次に、Ａ１列が空白の行を削除し、残りを行番号で並べ替えをします。
最後に、行番号の列を削除する、ということでできます。

お礼

こちらにまとめてお礼を記入させていただきます。
おかげさまで、うまくできました。またVBAは今後の参考にしたいと思います

ありがとうございました。

回答No.5

AQUALINE

VBAならこんな感じでいかがでしょう？
Sheet1のＡ列にデータがあるとして、とりあえずＢ列に空白をつめた状態で表示します。
データ最終行を１００としてますが適当に直してください。Ｂ列がまずければ Cells(n, "B") のＢをＸでもＹでも好きな列に変えてください。

Sub test()
Dim i As Integer, n As Integer
n = 1

With Sheets("Sheet1")

For i = 1 To 100
If .Cells(i, "A") <> "" Then
.Cells(n, "B") = .Cells(i, "A")
n = n + 1
End If

Next
End With

End Sub

回答No.4

KODAMAR

＞範囲指定して、右クリック、削除、上方向へシフト

＞すると、範囲指定したところが削除されていまいました。
＞○×も消えてしまいました。

消すところだけ、範囲指定をしないと全部消えてしまいます。
そういう機能なので…。

一度に全部というのでしたら複数範囲指定（Ctrlを使う）か、#2や#3の方の方法の方がいいと思います。

回答No.3

GuruGuru22

> ctrl+Gで空白行を削除できるのは知っているのですが、
> 行を削除すると困るのでそれ以外の方法を探してます。

A列を選択して、ctrl + G で空白セルを選んで
削除すればよいかと。

回答No.2

taknt

ＶＢＡを使用したほうがいいと思います。

補足

VBAの場合はどんな記述になるか、ご存知でしょうか？