空白セルをつめる。

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

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


A1　　　A1
×　　　×　　　
　　　　×　
×　　　×　

×　

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

No.1 ベストアンサー 回答者： KODAMAR 回答日時： 2003/08/28 15:28

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

でできますよ。

この回答への補足

うまくいかないです。

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

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

どうしてだろう。？？？

補足日時：2003/08/28 15:34

No.6 回答者： arikui 回答日時： 2003/08/28 16:38

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

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

この回答へのお礼

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

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

お礼日時：2003/08/28 16:39

No.5 回答者： AQUALINE 回答日時： 2003/08/28 16:35

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 回答日時： 2003/08/28 15:45

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

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

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

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

No.3 回答者： GuruGuru22 回答日時： 2003/08/28 15:42

> ctrl+Gで空白行を削除できるのは知っているのですが、

> 行を削除すると困るのでそれ以外の方法を探してます。

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

No.2 回答者： taknt 回答日時： 2003/08/28 15:33

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

この回答への補足

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

補足日時：2003/08/28 15:37