Sub 宏1()
Dim hang%
Dim n%
Dim x%
Dim rng As Range
Dim rng1 As Range
For Each rng In [C2:C107]
Sheets("表一").Select
Set rng1 = Cells.Find(What:="rng", After:=ActiveCell, LookIn:= _ xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _ xlNext, MatchCase:=False, MatchByte:=False, SearchFormat:=False).Activate
hang = ActiveCell.Row '返回当前单元格所在的行
n = hang + 30
x = hang - 6Rows(x & ":" & n).Select
MsgBox "是否删除选中行",vbOKOnly
Selection.Delete Shift:=xlUp
Next
End Sub
从表2里面查找C2: C107的身份证号，在表一里面找到，删除查找到的身份证号所在的当前页，代码调试有问题，哪位大神帮忙看看
Dim hang%
Dim n%
Dim x%
Dim rng As Range
Dim rng1 As Range
For Each rng In [C2:C107]
Sheets("表一").Select
Set rng1 = Cells.Find(What:="rng", After:=ActiveCell, LookIn:= _ xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _ xlNext, MatchCase:=False, MatchByte:=False, SearchFormat:=False).Activate
hang = ActiveCell.Row '返回当前单元格所在的行
n = hang + 30
x = hang - 6Rows(x & ":" & n).Select
MsgBox "是否删除选中行",vbOKOnly
Selection.Delete Shift:=xlUp
Next
End Sub
从表2里面查找C2: C107的身份证号，在表一里面找到，删除查找到的身份证号所在的当前页，代码调试有问题，哪位大神帮忙看看
