[[20170518111841]] 『関数で空白になっているセルの一括選択』(納屋) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『関数で空白になっているセルの一括選択』(納屋)

A列で、数式(="")として空白になっているセルを一括選択したいのですが方法はありますか?
条件を選択してジャンプボタンですと、数式が入っているセルは空白としてみなしてくれませんでした。
マクロなど使った方法でもよいので教えてください。

< 使用 Excel:Excel2013、使用 OS:Windows7 >


 選択したあとどうするのでしょうか?
 VBAで処理するのなら、場合によっては選択する必要がありません。

 あと、数式で""になっているセルのみを対象にしたいのでしょうか?
 最初から""のセルはどうしますか?

 最終目的を書かれると遠回りしなくて済みます。
(カリーニン) 2017/05/18(木) 11:30

一括選択したあとに削除したいです
1行ずつ削除するvbaはネットにあったのですが、時間がかかりすぎてダメでした

数式なしの空白は無視したいです。
(納屋) 2017/05/18(木) 11:57


 削除というのはセルの内容をクリアですか?
 セルを削除して詰めるということですか?
 詰める場合はどちらに詰めますか?

※これから外出になります。
(カリーニン) 2017/05/18(木) 12:06


削除はデリートで上詰めです
(納屋) 2017/05/18(木) 12:21

Sub main()
    Dim r As Range, c As Range
    For Each c In Cells.SpecialCells(xlCellTypeFormulas)
        If c.Value = "" Then
            If Not r Is Nothing Then
            Set r = Union(r, c)
            Else
            Set r = c
            End If
        End If
    Next c
    If Not r Is Nothing Then r.Delete Shift:=xlUp
End Sub
(mm) 2017/05/18(木) 15:00

コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.