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社群，进行技术交流和提问，获取更多电子资料，并通过社群加入专门的微信讨论群，更方便交流。
你可能想看：
最新文章
-
987171幽默玄机资料
刚刚 -
正版幽默解密网站
1分钟前 -
PLM是什么意思?
1分钟前 -
17327.cm幽默玄机
2分钟前 -
祖上传下来的医书，公开7个秘方！
2分钟前 -
《羊了个羊》99.9%不能通关攻略（雾）
2分钟前 -
肖老师讲痤疮
3分钟前 -
女人命硬是什么面相，女人颧骨高，杀夫不用刀
3分钟前
