[[20170223163906]]　『フィルター抽出後、削除』（６９）　ページの最後に飛ぶ

『フィルター抽出後、削除』（６９）

マクロ初心者です。

コードを教えていただけないでしょうか？

やりたいことは、

?@色フィルターでA1の黄色セルを抽出。
?ACtrl+→、Ctrl+↓でタイトル行以外を選択し、削除。
(毎回行数がバラバラなので、A1:J100とかにはできません)
?Bフィルターをクリアにする。

この時、黄色のセルが見つからない場合は何もしない。
という回避？をいれたいです。

/////

Sub Macro4()

    ActiveSheet.Range("$A$1:$I$4072").AutoFilter Field:=1, Criteria1:=RGB(255, _
        255, 0), Operator:=xlFilterCellColor
    Range("A2").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.EntireRow.Delete
    ActiveSheet.Range("$A$1:$I$3934").AutoFilter Field:=1

End Sub

/////

どうぞよろしくお願いします。

＜使用 Excel：Excel2010、使用 OS：Windows7 ＞

もし、範囲の１列目の可視セルの数を数えて、２個以上あれば削除

という文章を書き足してやってください。

Sub Macro5()

    With ActiveSheet.Range("A1").CurrentRegion
        .AutoFilter Field:=1, _
                    Criteria1:=RGB(255, 255, 0), _
                    Operator:=xlFilterCellColor
        If .Columns(1).SpecialCells(xlCellTypeVisible).Count > 1 Then
            .Offset(1).Delete shift:=xlShiftUp
        End If
        .AutoFilter
    End With
End Sub

※削除するセル範囲はざっくり指定してます。
不都合があればもう一工夫必要です。
（まっつわん） 2017/02/23(木) 17:05

できました！！
ありがとうございました＾＾
（６９） 2017/02/23(木) 17:57

コメント返信：

[ 一覧(最新更新順) ]

[[20170223163906]] 『フィルター抽出後、削除』（６９） ページの最後に飛ぶ

[[20170223163906]]　『フィルター抽出後、削除』（６９）　ページの最後に飛ぶ