1. 首頁 > 生活 > >

【如何在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同一列中刪除 相同的字？
選中該列---數據--刪除重復項 ， 即可 。彈出對話框 ， 要是刪除重復單元格所在的整個行 ， 則選擴張區域 ， 否則 ， 選當前區域 。