作业帮 > 综合 > 作业

在A列中有 a d d a c b a 等若干行,怎么用公式使在B列中显示A列中不重复的名称.

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/22 13:44:24
在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.