Excel中。 合并列并删除重复项
有列A – H的数据,可能会或可能不会在每个列中重复,我希望从列合并到一列删除重复的数据。
这可能与公式或做一个需要macros/ VBA?
我宁愿公式,因为后来不是我的力量(既不是第一;-))
Google表格使用以下公式来实现此目的:
=sort(unique({A:A;B:B}))
也许有一个Excel相当于?
试试这个macros在VBA中,select列,然后按(Alt + F11),并在该表的模块粘贴此代码:
Sub MakeOneColumn() Dim vaCells As Variant Dim vOutput() As Variant Dim i As Long, j As Long Dim lRow As Long If TypeName(Selection) = "Range" Then If Selection.Count > 1 Then If Selection.Count <= Selection.Parent.Rows.Count Then vaCells = Selection.Value ReDim vOutput(1 To UBound(vaCells, 1) * UBound(vaCells, 2), 1 To 1) For j = LBound(vaCells, 2) To UBound(vaCells, 2) For i = LBound(vaCells, 1) To UBound(vaCells, 1) If Len(vaCells(i, j)) > 0 Then lRow = lRow + 1 vOutput(lRow, 1) = vaCells(i, j) End If Next i Next j Selection.ClearContents Selection.Cells(1).Resize(lRow).Value = vOutput End If End If End If End Sub
然后按F5执行macros。