[[20140915112613]]　『マクロで空白セル削除』（mirumi）　ページの最後に飛ぶ

『マクロで空白セル削除』（mirumi）

いつも拝見させていただいてます
教えていただけたら嬉しいです

B23～B41に数値が入力されてますが
たまに空白が有ります
この空白を無視して
上に詰める方法を探しています
よろしくお願いいたします

＜使用 Excel：Excel2013、使用 OS：Windows8 ＞

 上に詰めるというのは削除ですか？転記ですか？
 セルを削除した場合、書式が崩れる、セル結合で削除できない等の懸念はないでしょうか。
（Mook） 2014/09/15(月) 11:43

 該当の行全体が削除されても大丈夫なら

 B23:B41を選択して、Ctrl + G → [セル選択(S)]で
 ●空白セル(K)　を選んで [OK]

 空白セルが選択されるので
 右クリック→削除(D)→●上方向にシフト(U) を選んで [OK]

 を、マクロの記録にとってみて下さい。
 　
（HANA） 2014/09/15(月) 11:47

Mookさん
早速のお返事ありがとうございます
式等は下記のマクロで張り付けていますので関係ありません
又単独セルですので削除が出来ない事はありません
Sub 貼り付け()

    Range("K23:K40").Select
    Selection.Copy
    Range("B23").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub

HANA様
ご指導有難う御座います
CTRL+G　でいろんなこと出るんですね
勉強になりました「
有難う御座いました

Sub 空白()
'

    Range("B23:B40").Select
    Selection.SpecialCells(xlCellTypeBlanks).Select
    Selection.Delete Shift:=xlUp
End Sub

Selection.SpecialCells(xlCellTypeBlanks).Select　
空白を選択ですよね

Selection.Delete Shift:=xlUp
削除して上にあげるですよね

ご迷惑と思いますが　追加で質問させてください
この時Cの同列も削除するときは
どうすればよいのでしょうか

（mirumi） 2014/09/15(月) 12:12

 先の投稿の一部を訂正させて下さい。

 ＞空白セルが選択されるので
 ＞右クリック→削除(D)→●上方向にシフト(U) を選んで [OK]
 で、空白セルが上づめで削除されます。

 　空白セルが選択されるので
 　右クリック→削除(D)→●行全体(R) を選んで [OK]
 すると、C列も削除できます。
 ただし、ほかの列も一緒に削除されてしまいますが。

 ＞空白を選択ですよね 
 そうです。
 範囲に空白セルがなかった場合はエラーになりますので
 エラー処理を入れておいてもらうのが良いかもしれません。
 　
（HANA） 2014/09/15(月) 12:28

HANA様
色々有難う御座いました
（mirumi） 2014/09/15(月) 12:56

コメント返信：

[ 一覧(最新更新順) ]

[[20140915112613]] 『マクロで空白セル削除』（mirumi） ページの最後に飛ぶ

[[20140915112613]]　『マクロで空白セル削除』（mirumi）　ページの最後に飛ぶ