[[20171016013025]]　『条件付き書式設定で選択したセルを削除する方法』（こい）　ページの最後に飛ぶ

『条件付き書式設定で選択したセルを削除する方法』（こい）

条件付き書式設定で選択したセル（強調等されている部分）を削除する方法はありますか。

一定数字以上の数字を持つセルを削除したいです。
条件付き書式設定で一定数以上の数字を選択、強調等はできるのですが、そのセルを削除することは可能でしょうか。

よろしくお願いいたします。

＜使用 Excel：Excel2016、使用 OS：Windows10 ＞

 そのセルの値を消せばいいのか、そのセルを削除してそれ以降のセルを詰めるのかどちらだろうか？
 もし値を消すだけの場合、表示だけ見えなくすればいいのか値そのものをなくしたいのかどちらだろうか？
（ねむねむ） 2017/10/16(月) 08:53

その値を削除し、削除した下にある値を上へ詰めたいです。
また、表示を見えなくするのではなく、削除したいです。
（こい） 2017/10/16(月) 09:00

 すまないがもう一つ質問。
 セルを削除する場合、その列のなかだけなのか対象セルの行そのものを削除してしまっていいのだろうか？
（ねむねむ） 2017/10/16(月) 09:10

　＞一定数字以上の数字を持つセルを削除したいです。

順に見て行って該当する削除をするコードを書けばいいと思います。
条件付き書式設定にとらわれる必要はないと思います。
(条件は条件付き書式設定から条件式を参照してもいいかもですね）

オートフィルターが使えるとマクロまで要らない気もしますが、
そちらの操作をマクロ化する方法もあると思います。
ただし、対象の並びが縦一列なのか横一列なのか、ある程度まとまった矩形の領域なのか、
とびとびの領域なのかわからないので、説明されるといいと思います。

（まっつわん） 2017/10/16(月) 09:18

ねむねむさん
そのセルのみです。

まっつわんさん
フィルターもトライしているのですが、表示の変更はできますが、削除、しかもそれを一括で実施しようとすると、私にはわからなくて。
縦一列に数字があり、それが幾列もあるイメージです。。イメージし難かったら、ごめんなさい。
（こい） 2017/10/16(月) 09:32

 まず、条件付き書式で背景色を付けるようにする。
 オートフィルタを設定して色フィルタで条件付き書式で設定した色を抜き出す。
（ねむねむ） 2017/10/16(月) 10:16

 抜き出された範囲を選択してホーム-編集-検索と選択のジャンプを選択。
 セル選択-可視セルを選択してＯＫ。
 その後、オートフィルタでフィルタをクリア。
 色のついたセルだけが選択されているので選択されているセルの秘湯の上で右クリック-削除、ではどうか。
（ねむねむ） 2017/10/16(月) 10:16

 ┌───┬───┬───┬───┬───┐
 │項目1 │項目2 │項目3 │項目4 │項目5 │
 ├───┼───┼───┼───┼───┤
 │あ    │    15│    18│    18│     5│
 ├───┼───┼───┼───┼───┤
 │い    │     9│    11│    15│    16│
 ├───┼───┼───┼───┼───┤
 │う    │    14│    13│    11│    14│
 ├───┼───┼───┼───┼───┤
 │え    │    17│     2│     7│    18│
 ├───┼───┼───┼───┼───┤
 │お    │     4│     9│    12│     0│
 ├───┼───┼───┼───┼───┤
 │か    │    14│    12│     3│     2│
 ├───┼───┼───┼───┼───┤
 │き    │    16│     2│    16│     8│
 ├───┼───┼───┼───┼───┤
 │く    │    13│     5│     2│    16│
 ├───┼───┼───┼───┼───┤
 │け    │     2│    14│    11│    16│
 └───┴───┴───┴───┴───┘

こういうことですか？
で、例えば10以上の値があれば、そのセルだけ削除？(上に詰める？左に詰める？）
行を削除？列を削除？

（まっつわん） 2017/10/16(月) 11:02

ねむねむ様

確認してみます。

まっつわん様
はい、わかりやすく図示していただき、ありがとうございます。
（ひろた） 2017/10/16(月) 14:35

　＞まっつわん様
　＞はい、わかりやすく図示していただき、ありがとうございます。
で、聞いた質問には答えてくれないんですねー。。。＾＾；

15以上がどこかの列にあればで、
行削除だろうということで、こんなかんじかなー＾＾；

Sub test()

    Dim i As Long

    With Range("A1").CurrentRegion
        If .Columns.Count > 1 Then
            For i = 2 To .Columns.Count
                .AutoFilter Field:=i - 1
                .AutoFilter Field:=i, Criteria1:=">=15"
                If .Columns(1).SpecialCells(xlCellTypeVisible).Count > 1 Then
                    .Resize(.Rows.Count - 1).Offset(1).EntireRow.Delete
                End If
            Next
            .AutoFilter
        End If
    End With
End Sub
（まっつわん） 2017/10/16(月) 15:38

コメント返信：

[ 一覧(最新更新順) ]

[[20171016013025]] 『条件付き書式設定で選択したセルを削除する方法』（こい） ページの最後に飛ぶ

[[20171016013025]]　『条件付き書式設定で選択したセルを削除する方法』（こい）　ページの最後に飛ぶ