新手请教一个去除重复的语句问题

13764433574

刚学了一周左右，教材只看了100多页，按照实际业务需求让朋友写了一个数据列去重的宏，基本逻辑是看懂了，有几个语句没看懂，请教一下论坛的前辈。
具体如下：
Sub 数据列去重整理()
    Dim A, B, Temp As Range
    Set A = Worksheets("数据表").Range("A1:A5001")
    Set Temp = Worksheets("操作表").Range("A1:A5001")
    Set B = Worksheets("操作表").Range("A1")(1, 1)
    Dim i As Range
    Dim n As Long
    n = 1
    For Each i In A
        If Application.WorksheetFunction.CountIf(Temp, i) = 0 Then
            B(n, 1) = i
            n = n + 1
        End If
    Next
End Sub

红色部分语句不太明白，我的问题是这样的：
1、第一条疑问语句：Set B = Worksheets("操作表").Range("A1")(1, 1)
我理解：将操作表sheet中的A1单元格赋给变量B，那么（1,1）是什么东东，坐标？书里还没看到这个内容；
2、第二条疑问语句：For Each i In A
我理解：变量A等于数据表sheet中的A1:A5001区域，变量i循环取A1到A5001，然后放到CountIf语句里作为统计条件？

3、第三条疑问语句：B(n, 1) = i
我理解：当CountIf为True时，B（1,1）=A1，B（2,1）=A2？B（n,1)代表什么？这句也是一种赋值的方式么？


问题比较初级，谢谢！！！

ivccav

你可以跟你那朋友拜拜了，他在坑你，他的写法没有一个是正常的。去重复如果这样写，那效率低到让人无法接受。

1.Dim A, B, Temp As Range，这句话从上下文看是错误的，他想要A、B也是Range对象吧？这样写，A、B都是不定变量。i、j、k一般是计数用的，不用来表示单元格。

2.Set B = Worksheets("操作表").Range("A1")(1, 1)就是A1单元格本身，后面的(1,1)是以A1单元格为左上角顶点的区域的第一行第一列的单元格，就是A1本身。B(n, 1) = i就是把单元格i的值给单元格B(n, 1)，注意这个B(n, 1) 是以A1单元格为左上角顶点的矩形区域的第n行第1列交叉的位置的单元格。

3.COUNTIF计算区域中满足给定条件的单元格的个数。CountIf(Temp, i)是在temp区域等于i的单元格个数，等于0个就表示这个区域没有这个数，即不重复。
这些写法都是最不常用的方法，几乎没有人使用。去重复用字典即可，高效简单。

13764433574

ivccav 发表于 2018-9-7 17:32
你可以跟你那朋友拜拜了，他在坑你，他的写法没有一个是正常的。去重复如果这样写，那效率低到让人无法接受 ...

这个字典好像教材里没看到，麻烦有推荐的辅导书可以学习么，谢谢！

xgczwp

学习，同求高手指点。

iwangyi

用 Sql = "select DISTINCT 去重字段名 from [数据源表$]"   可以去重复

iwangyi

用字典 D(关键字）="" 去重复

herexcel

手头正好有个选区域去重复并输出到指定位置的宏，供楼主参考：

Sub 删除重复值()
On Error Resume Next
Dim rng As Range
Set rng = Application.InputBox("选择区域", Type:=8, Default:=Selection.Address)
If rng Is Nothing Then End
Dim s As Range
Set s = Application.InputBox("输出到：", Type:=8)
If s Is Nothing Then End
s.Worksheet.Activate
s.Select
Set s = ActiveCell
Dim c As Range, dic As Object
Set dic = CreateObject("scripting.dictionary")
For Each c In rng
    If Not dic.exists(c.Value) And (Not c.Value = "") Then dic.Add c.Value, ""
Next
s.Resize(dic.Count, 1) = Application.Transpose(dic.keys)
End Sub