【如何在EXCEL同一列中删除 相同的字?】怎样在一列表格增加一样文字

在excel中同一列中如何去掉相同的内容
'筛选不重复的记录
'第一个数据 , 执行下面的宏
Sub Macro1()
Dim varArray()
ReDim varArray(1)
varArray(0) = ActiveCell
For i = 1 To 100'总记录
For j = 0 To UBound(varArray)
If ActiveCell.Offset(i, 0) = varArray(j) Then Exit For
x = j
Next
If x = UBound(varArray) Then
ReDim Preserve varArray(UBound(varArray)1)
varArray(x) = ActiveCell.Offset(i, 0)
End If
Next
For i = 0 To UBound(varArray)
ActiveCell.Offset(i, 1) = varArray(i)
Next
End Sub
如何在EXCEL同一列中删除 相同的字?
选中该列---数据--删除重复项 , 即可 。弹出对话框 , 要是删除重复单元格所在的整个行 , 则选扩张区域 , 否则 , 选当前区域 。