用EXCEL VBA在一定区域内删除重复值所在行只保留一个 10
我有300行每行有9个数据，怎样才能使这些数据只出现一次并且把重复的数据所在行一起删除例如0102030405060708091123141810151219201008...
我有300行每行有9个数据，怎样才能使这些数据只出现一次并且把重复的数据所在行一起删除
例如
01 02 03 04 05 06 07 08 09
11 23 14 18 10 15 12 19 20
10 08 21 22 23 24 29 28 33
45 56 57 44 32 90 80 88 46
因为第三行的08和第一行的08有重复所以我想要的结果是
01 02 03 04 05 06 07 08 09
11 23 14 18 10 15 12 19 20
45 56 57 44 32 90 80 88 46
不知道用VBA 代码该怎么写 展开
例如
01 02 03 04 05 06 07 08 09
11 23 14 18 10 15 12 19 20
10 08 21 22 23 24 29 28 33
45 56 57 44 32 90 80 88 46
因为第三行的08和第一行的08有重复所以我想要的结果是
01 02 03 04 05 06 07 08 09
11 23 14 18 10 15 12 19 20
45 56 57 44 32 90 80 88 46
不知道用VBA 代码该怎么写 展开
1个回答
展开全部
Dim cel As Range, i As Integer
For i = 1 To 100
Set cel = Range("a" & i)
If Application.WorksheetFunction.CountIf(Range(Range("a1:a100"), cel), cel) > 1 Then
cel.EntireRow.Delete shift:=xlUp
i = i - 1
End If
Next
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
