回复一个昨晚还在，今天却不见了的帖子

在1,2,3,4哪一行后面第5列输入1234，执行下面代码
Sub test()
arr = Array(12, 13, 15, 23, 25, 35, 123, 124, 134, 234)
Selection.AutoFill Destination:=Range("E1:E210"), Type:=xlFlashFill
For i = 1 To 210
For j = 1 To 10
If InStr(Cells(i, 5), arr(j - 1)) <> 0 Then
Cells(i, 5).EntireRow.Delete
End If
Next j
Next i
End Sub
循环的起始值可以根据实际情况修改一下