sheet1指定列中内容与sheet2中指定列的内容相同则删除sheet1中整行,求VBA代码
sheet1指定列A列中内容与sheet2A列中指定列的内容相同则删除sheet1中整行,需要VBA代码，求大神指点，在线等啊！！！SHEET1中的内容ABCcellse...
sheet1指定列A列中内容与sheet2A列中指定列的内容相同则删除sheet1中整行,需要VBA代码，求大神指点，在线等啊！！！
SHEET1中的内容
A B C
cell sector carr
2 2 1
4 1 1
4 3 1
5 2 1
6 1 1
6 2 1
6 3 1
8 1 1
8 3 1
9 2 1
10 1 1
10 1 3
10 2 2
10 3 1
10 3 3
11 1 2
11 2 2
11 3 2
12 2 1
14 1 1
14 1 3
14 2 2
14 3 1
SHEET2中内容
A B
1
2
3
4
5
6
7
8
9 展开
SHEET1中的内容
A B C
cell sector carr
2 2 1
4 1 1
4 3 1
5 2 1
6 1 1
6 2 1
6 3 1
8 1 1
8 3 1
9 2 1
10 1 1
10 1 3
10 2 2
10 3 1
10 3 3
11 1 2
11 2 2
11 3 2
12 2 1
14 1 1
14 1 3
14 2 2
14 3 1
SHEET2中内容
A B
1
2
3
4
5
6
7
8
9 展开
1个回答
展开全部
把以下代码复制到 sheet1对应的VBA代码编辑界面中。
Sub deleteRow()
' i 为sheet1中起始行到结束行
For i = 2 To 1000
If (Sheets("sheet1").Cells(i, 1) = "") Then Exit For
' j 为sheet2中起始行到结束行
For j = 1 To 1000
If (Sheets("sheet2").Cells(j, 1) = "") Then Exit For
'判断两表中第一列的值是否相等，如果相等，则删除第一个表中的对应行
If (Sheets("sheet1").Cells(i, 1) = Sheets("sheet2").Cells(j, 1)) Then
Rows(i).Select
Selection.Delete Shift:=xlUp
i = i - 1
If i < 2 Then i = 2
End If
Next j
Next i
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
