vba提真金不怕火某列不重叠的数据放入数组色姐姐，底下例如得到下图excel第1列不重叠数据的3种顺次：
图片
顺次1：查验不重叠本色放入数组
Sub 不重叠本色放入数组() maxrow = ActiveSheet.UsedRange.Rows.Count '现时行为责任表的行长 Dim arr() As Variant '确立动态数组 iCounter = 0 '数组的待用下标 aa = "#" '第一种格外字符，珍视必须是数组中莫得的字符 For Row = 1 To maxrow element = Cells(Row, 1) '得到现时行的元素 mergestring = aa & Join(arr, aa) & aa '团结数构成字符串 If InStr(mergestring, aa & element & aa) = 0 Then '查验现时元素是否在数组中存在，不存在则将该元素放入数组 ReDim Preserve arr(iCounter) '再行界说动态数组大小 arr(iCounter) = element '给数组添加该元素 iCounter = iCounter + 1 End If Next MsgBox Join(arr, "，") '用“，”串联数组通盘元素稽查截止 End Sub
以上代码的旨趣是通过遍历列本色，查验到数组中莫得该列本色则放入数组中。珍视格外象征“#”的作用是在检测元素是否在数组中时作符号永别色姐姐，是以其必须是数组元素中莫得的字符（旨趣详见我的著作【VBA判断元素是否在数组中】）
顺次2：愚弄字典去重
Sub 愚弄字典去重数组()
Set dict = CreateObject("scripting.dictionary") '创建字典
maxrow = ActiveSheet.UsedRange.Rows.Count '现时行为责任表的行长
For Row = 1 To maxrow
Key = Cells(Row, 1)
dict(Key) = "" '数据放入字典（在遭受相易的键赋值时，不会新增键，而是替换原本的键对应的值）
Next
arr = dict.Keys() '将字典的通盘键放入数组
MsgBox Join(arr, "，") '用“，”串联数组通盘元素稽查截止
End Sub以上代码是愚弄字典中的键值不会重叠的旨趣，遍历列本色当作键值放入字典【使用d("x") = ""莫得x键会增多，已有x键会替换】，罢了去重的成果
顺次3：使用Filter函数去重
Sub Filter函数去重数组() maxrow = ActiveSheet.UsedRange.Rows.Count '现时行为责任表的行长 arr1 = WorksheetFunction.Transpose(Range(Cells(1, 1), Cells(maxrow, 1))) '单位格区域放入“待去重”数组 Dim arr2() As Variant '确立动态数组，当作去重后数据存放的数组 iCounter = 0 '“去重数组”的待用下标 aa = "@" '第一种格外字符 bb = "#" '第二种格外字符 arr1 = Split(bb & Join(arr1, bb & aa & bb) & bb, aa) '给“待去重数组”数组里通盘元素前后添加“#” Do element = arr1(0) '得到“待去重数组”里的第一个元素 If element <> bb & bb Then '如若数组元素不为空时，则放入“去重数组”数组 ReDim Preserve arr2(iCounter) '再行界说动态数组大小 arr2(iCounter) = Replace(element, bb, "") '给“去重数组”添加该元素（同期剔除元素中的“#”） iCounter = iCounter + 1 End If arr1 = VBA.Filter(arr1, element, False) '“待去重数组”剔除通盘element元素 Loop While Join(arr1, "") <> "" '当“待去重数组数组”为空时退出轮回 MsgBox Join(arr2, "，") '用“，”串联数组通盘元素稽查截止 End Sub
以上代码的旨趣是将原数组里的一个元素放入新数组，之后用Filter函数将原数组里的相易称呼元素剔除，再提真金不怕火下一个元素再剔除，轮回重叠直至原数组为空，这么得到的新数组即是剔除重叠值后的数组。
需要珍视的是，原数组在进行得到元素放入新数组前，要先对所稀有组元素进行前后加格外象征“保护”，原因是Filter函数的筛选是迁延匹配，思要精准匹配就要对数组元素预处置（顺次领略详见我的著作【VBA用Filter精准匹配筛选或剔除数组元素】），珍视采选的两种格外字符必须是在数组元素中莫得出现的象征。
夫妻性爱第三种顺次天然代码复杂些，然而速率会比前两种快，因为它不需要遍历通盘列本色，是以稳健在数据格外多的时期使用。
以上本色对您有匡助不错共享或转藏色姐姐，幸免以后找不到。思要了解更多VBA干系学问，迎接到http://moqingyan.360doc.com我的个东说念主藏书楼稽查。
本站仅提供存储干事，通盘本色均由用户发布，如发现存害或侵权本色，请点击举报。