|
▼本山中 さん:
2007ということなのでオートフィルターで。
Sample1は、1行目からデータの場合。
Sample2は、1行目がタイトル行の場合。
Sub Sample1()
With Sheets("Sheet1")
.Rows(1).Insert Shift:=xlDown
.Range("B1").Value = "タイトル" 'Dummy
.Range("B1", .Range("B" & .Rows.Count).End(xlUp)).AutoFilter
With .AutoFilter.Range
.AutoFilter Field:=1, Criteria1:=Array("1234", "2345", "3456", "4567"), _
Operator:=xlFilterValues
.Offset(1).Resize(.Rows.Count - 1).EntireRow.Delete
.AutoFilter
End With
.Rows(1).Delete
End With
End Sub
Sub Sample2()
With Sheets("Sheet2")
If .AutoFilterMode Then .AutoFilter.Range.AutoFilter
.Range("B1", .Range("B" & .Rows.Count).End(xlUp)).AutoFilter
With .AutoFilter.Range
.AutoFilter Field:=1, Criteria1:=Array("1234", "2345", "3456", "4567"), _
Operator:=xlFilterValues
.Offset(1).Resize(.Rows.Count - 1).EntireRow.Delete
.AutoFilter
End With
End With
End Sub
|
|