[[20160916132731]]　『条件に合わなければ行削除』（evemama）　ページの最後に飛ぶ

『条件に合わなければ行削除』（evemama）

お手数お掛けします。

対象は5行くらいなんですが・・・
A1のセルに＜項目＞という文字が入っていれば、そのままマクロを実行すればいいのですが（そのマクロはできております）、
たまに2行目とか3行目とかにずれているので、2行目や3行目に入っていればその上の行を削除してA1にしてマクロを実行したいのでですが。

わかりにくい説明で申し訳ありませんが、ご指導よろしくお願いいたします。

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

こんにちは

出来ているマクロの前に、

Sub test()

    Dim v As Variant
    v = Application.Match("＜項目＞", Range("A:A"), 0)
    If Not IsError(v) Then
        If v > 1 Then
            Range("A1:A" & v - 1).EntireRow.Delete
        End If
    End If
End Sub

を実行（Call）するとか。

（ウッシ） 2016/09/16(金) 13:58

うまくいきました！
有難うございました。
（evemama） 2016/09/16(金) 14:52

コメント返信：

[ 一覧(最新更新順) ]

[[20160916132731]] 『条件に合わなければ行削除』（evemama） ページの最後に飛ぶ

[[20160916132731]]　『条件に合わなければ行削除』（evemama）　ページの最後に飛ぶ