在A列中有 a d d a c b a 等若干行,怎么用公式使在B列中显示A列中不重复的名称.也就是用公式实现高级筛选中选择不重复项的功能
来源:学生作业帮助网 编辑:六六作业网 时间:2024/11/06 07:27:38
在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、...
全部展开
我一般是这样做的
1、先把A列复制到D列,
2、将D列排序,
3、在E1单元格用文本函数里面的公式 EXACT(D1,D2) ,比较两个单元格内容是否完全一致,一致返回true,不一致则返回false
4、下拉复制也就是说 E列就只有不是false就是true的单元格了
5、将E列剪切,选择性沾贴 数值 到C列
6、选中C和D列,排序
7、将C列中false的单元格连同相应D列删去
收起