摘要： excel取不重复值的方法真是多种多样，比如使用高级筛选、SQL、函数、VBA完成excel取不重复值。下面以一个例子来说明excel取不重复值的方法。 excel取不重复值方法一：...
excel取不重复值的方法真是多种多样，比如使用高级筛选、SQL、函数、VBA完成excel取不重复值。下面以一个例子来说明excel取不重复值的方法。
excel取不重复值方法一：高级筛选
A列姓名有重复的，将A列姓名取不重复值之后放在C列。
操作方法是：单击数据——高级，打开“高级筛选”对话框，进行如下图设置。
Excel 运行时错误9下标越界的处理方法
Excel中vba提示下标超界，说明对象不存在或者数组元素不存在。 举个简单的例子：工作表中没有"1月"这个工作表，却用Sheets("1月")；数组定义的是arr(1 to 10)，却用Arr(11)，都会出现下标越界的提示。 简单的理解：下标越界就是引用超出了所在的范
excel取不重复值方法二：SQL
单击数据——现有连接，单击最下面的“浏览更多”，按照路径找到文件，弹出的“导入数据”对话框，单击“属性”，打开“连接属性”对话框，切换到“定义”选项卡，在“命令文本”输入：select distinct 姓名 as 不重复姓名 from [Sheet1$]，确定。
excel取不重复值方法三：VBA
按ALT F11，打开VBE编辑器界面，单击插入——模块，复制下面的代码，然后按F5键运行，在B1开始提取A列不重复姓名。
Sub excel取不重复值()
Dim d As Object
Dim lRow As Long
Dim i As Long
Dim str As Variant
Dim strKey As String
Set d = CreateObject("scripting.dictionary")
lRow = Range("A65536").End(xlUp).Row
str = Range("A1:A" & lRow)
For i = 1 To lRow
strKey = CStr(str(i, 1))
If Not d.exists(strKey) Then
d.Add strKey, strKey
End If
Next i
Range("B1").Resize(UBound(d.keys) 1, 1) = Application.Transpose(d.keys)
End Sub
excel取不重复值方法四：函数
B1单元格留空或者输入文字“不重复姓名”，然后在B2单元格输入公式：=OFFSET($A$1,MATCH(,COUNTIF($B$1:B1,$A$2:$A$15),),)&""，按ctrl shift enter，三键结束数组公式，完成不重复值提取。
EXCEL vba日期和时间函数汇总和代码
文章介绍了excel中vba日期函数和vba时间函数的应用以及相关的函数列表。 第一，vba日期和时间函数的基本用法 Excel中vba日期函数和时间函数分别是DATE和TIME。 VBA提供了三个无参数函数：Date、Time、Now，分别返回当前电脑系统的日期、时间、日期 时间。 下面的代码我们以三个消
