Word VBA技術：删除表格中内容相同的重複行
excelperfect
标簽：Word VBA 本示例演示如何使用代碼删除已排序表中第1列内容相同的行，代碼如下：
上面的代碼區分大小寫，即第一列中内容相同但大小寫不同不會被删除。下面的代碼操作時不區分大小寫：
歡迎到知識星球：完美Excel社群，進行技術交流和提問，獲取更多電子資料，并通過社群加入專門的微信讨論群，更方便交流。
标簽：Word VBA 本示例演示如何使用代碼删除已排序表中第1列内容相同的行，代碼如下：
Sub DeleteTableDuplicateRows()
Dim objTable As Table
Dim objRow As Range
Dim objNextRow As Range
Dim i As Long
'指定想要操作的表格
Set objTable = ActiveDocument.Tables(1)
'設置對象變量為第一行
Set objRow = objTable.Rows(1).Range
'關閉屏幕刷新
Application.ScreenUpdating = False
For i = 1 To objTable.Rows.Count - 1
'設置對象變量為下一行
Set objNextRow = objRow.Next(wdRow)
'比較表格第1列的文本
IfobjRow.Cells(1).Range= objNextRow.Cells(1).RangeThen
'如果相同則删除第2行
objNextRow.Rows(1).Delete
Else
'如果不相同則移到下一行
Set objRow = objNextRow
End If
Next i
'打開屏幕更新
Application.ScreenUpdating = True
End Sub
本示例演示了如何使用VBA代碼在Word表格的單元格中移動的方法。那麼，對于沒有排序過的表格，如何使用VBA删除重複行呢？Sub DeleteTableDuplicateRows1()Dim objTable As TableDim objRow As RangeDim objNextRow As RangeDim i As LongDim strCell As StringDim strCellNext As String'指定想要操作的表格Set objTable = ActiveDocument.Tables(1)'設置對象變量為第一行Set objRow = objTable.Rows(1).Range'關閉屏幕刷新Application.ScreenUpdating = FalseFor i = 1 To objTable.Rows.Count - 1'設置對象變量為下一行Set objNextRow = objRow.Next(wdRow)strCell= LCase(objRow.Cells(1).Range.Text)strCellNext= LCase(objNextRow.Cells(1).Range.Text)If strCell = strCellNext ThenobjNextRow.Rows(1).DeleteElseSet objRow = objNextRowEnd IfNext i'打開屏幕更新Application.ScreenUpdating = TrueEnd Sub
歡迎到知識星球：完美Excel社群，進行技術交流和提問，獲取更多電子資料，并通過社群加入專門的微信讨論群，更方便交流。
你可能想看：
最新文章
-
太師修行問答48：人生隻是演戲瑜伽也能修禅，能達到幾禅
7分鐘前 -
![[書法]閑暇草書彙03](https://m.74hao.com/zb_users/upload/2024/10/202410161729086639361289.png)
[書法]閑暇草書彙03
24分鐘前 -
3D技巧：兩碼和差選号法
46分鐘前 -
“落日無情最有情，遍催萬樹暮蟬鳴”楊萬裡詩五首，風格清新自然
1小時前 -
《玄理賦》五行生克的太過不及 等
1小時前 -
《老山1984-1989，中越老山之戰實錄》連載之二：118團8連收敲掉54
2小時前 -
攝影：故鄉的秋色（2）
2小時前 -
論入宅歸火擇吉（續）第二，坐向要吉 坐向要吉，主要是指所選日課
2小時前
有話要說...