在A列中有 a d d a c b a 等若干行,怎么用公式使在B列中显示A列中不重复的名称.也就是用公式实现高级筛选中选择不重复项的功能

来源：学生作业帮助网编辑：作业帮时间：2024/05/08 15:20:09

在A列中有 a d d a c b a 等若干行,怎么用公式使在B列中显示A列中不重复的名称.也就是用公式实现高级筛选中选择不重复项的功能
在A列中有 a d d a c b a 等若干行,怎么用公式使在B列中显示A列中不重复的名称.
也就是用公式实现高级筛选中选择不重复项的功能

在A列中有 a d d a c b a 等若干行,怎么用公式使在B列中显示A列中不重复的名称.也就是用公式实现高级筛选中选择不重复项的功能
按Alt+F11组合键或鼠标右击工作表标签选“查看代码”,打开VBA编辑器,输入如下代码：
Sub 去掉重复数()
Dim xRow,i,j As Integer
xRow = Range("A65536").End(xlUp).Row
Range(Cells(1,2),Cells(2,2)).EntireColumn.ClearContents
j = 1
For i = 2 To xRow
If Cells(i,1) "" And WorksheetFunction.CountIf(Range(Cells(1,2),_
Cells(j,2)),Cells(i,1)) = 0 Then
Cells(j,2) = Cells(i,1)
j = j + 1
End If
Next
End Sub
运行代码前,将宏安全性设为中.运行代码有两种方法：运行宏“去掉重复数”；在VBA编辑状态按F5.

=IF(COUNTIF(INDIRECT("A1:" & "A" &ROW()),A1)=1,A1,"")怎么做出来中间是用空格的，可不可以排在一起？还有INDIRECT("A1:" & "A" &ROW()),A1是什么意思？排在一起用的公式很复杂。 INDIRECT("A1:" & "A" &ROW()) 表示A1到目前行的引用，比如目前在第3行，那就是A1:A3 COUNTIF(...

全部展开

=IF(COUNTIF(INDIRECT("A1:" & "A" &ROW()),A1)=1,A1,"")

收起

我一般是这样做的
1、先把A列复制到D列，
2、将D列排序，
3、在E1单元格用文本函数里面的公式 EXACT(D1，D2) ,比较两个单元格内容是否完全一致，一致返回true，不一致则返回false
4、下拉复制也就是说 E列就只有不是false就是true的单元格了
5、将E列剪切，选择性沾贴数值到C列
6、选中C和D列，排序
7、...

全部展开

收起

A B C D A B C D （a+b)(c+d). [a,b)×[c,d a,b ,c ,d a b c d （a) (b) (c) (d) A,B,C,D A B C D 在括号里填写适当的项：(a+b-c-d)(a-b-c+d)=[(a-d)+( )][(a+d)-( )] 已知d>c a+b=c+d a+d (a+d+c-d)(a-b+c+d)=? A>B,C>D.A+C 因式分解:c(a-b)+d(b-a) ( )-(c-d)=(a-c)-(-b+d) main()main() { float a,b,c,d; scanf(%d%d,&a&b); c=a+b; d=a/2+b/2; printf(%d%d,a,b); 错在哪?main(){float a,b,c,d;scanf(%d%d,&a&b);c=a+b;d=a/2+b/2;printf(%d%d,a,b);getch();} 实数a,b,c,d满足d>c；a+b=c+d；a+d 实数a,b,c,d,满足,d>c,a+b=c+d,a+d