
vb删除 重复数据,求高手帮忙.
2个回答
展开全部
品名是在C列吧?如果不是,你调整一下。
如果重复了,把前面的整行删除。
Sub xabc()
For i = [C65536].End(xlUp).Row To 2 Step -1
For j = i - 1 To 1 Step -1
If Cells(j, 3) = Cells(i, 3) Then
Rows(j).Delete
j = j - 1
End If
Next j
Next i
End Sub
如果重复了,把前面的整行删除。
Sub xabc()
For i = [C65536].End(xlUp).Row To 2 Step -1
For j = i - 1 To 1 Step -1
If Cells(j, 3) = Cells(i, 3) Then
Rows(j).Delete
j = j - 1
End If
Next j
Next i
End Sub
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询