|
▼列行 さん:
>A〜Qまで各項目があり
>7000行ほどあるデータの処理をしています。
7000行くらいなら、フィルタオプションで削除行を抽出して
一括行削除してしまったらどうでしょ。
'フィルタオプション
Sub Try1()
Dim mRng As Range '対象範囲
Dim cRng As Range '条件設定範囲
Dim WS1 As Worksheet
Set WS1 = ActiveSheet
Set cRng = WS1.Range("AA1").Resize(4, 3) '条件書き込み
cRng(1, 1).Value = WS1.Range("D1").Value
cRng(1, 2).Value = WS1.Range("G1").Value
cRng(1, 3).Value = WS1.Range("P1").Value
cRng(2, 1).Formula = "=""ABC"""
cRng(3, 2).Formula = "=0"
cRng(4, 3).Formula = "="
Set mRng = WS1.Cells(1).CurrentRegion
mRng.AdvancedFilter xlFilterInPlace, cRng
If mRng.Columns(1).SpecialCells(xlVisible).Count > 1 Then
mRng.Offset(1).EntireRow.Delete
End If
cRng.Clear
mRng.Worksheet.ShowAllData
End Sub
|
|