|
1行目はタイトルです。
C列がmynoの行をautofilterしてC列がmynoのデーターのみを削除したいのですが、
どうも 不確かで タイミングで必要なデーターも削除する恐れがあるようです。
下記2つのマクロを作ってみたのですが、どちらが確実でしょうか?
大切なデーターを削除してしまう恐れが有るので何かもっと確実な方法が有れば教えて頂きたいのですが。
Sub test()
myno = 2
Range("A2").AutoFilter Field:=3, Criteria1:=myno
Range("A2").CurrentRegion.Offset(1).Select
m = Range("A18").End(xlUp).Row
If m < 2 Then
ActiveSheet.ShowAllData
Exit Sub
End If
Selection.Columns("a:h").SpecialCells(xlCellTypeVisible).Select
Selection.EntireRow.Delete
ActiveSheet.ShowAllData
'Range("A2").CurrentRegion.Offset(5).Select
' Selection.Resize(Selection.Rows.Count - 5).SpecialCells(xlCellTypeVisible).Select
End Sub
Sub test2()
myno = 2
Range("A2").AutoFilter Field:=3, Criteria1:=myno
m = Range("A18").End(xlUp).Row
If m < 2 Then
ActiveSheet.ShowAllData
Exit Sub
End If
Range("a2:h" & m).SpecialCells(xlCellTypeVisible).Select
Selection.EntireRow.Delete
ActiveSheet.ShowAllData
End Sub
|
|