Word VBA技术：删除表格中内容相同的重复行（加强版）

Sub DeleteTableDuplicateRowsPlus()
  Dim objTable As Table
  Dim objRow As Range
  Dim objPreviousRow As Range
  Dim i As Long
  Dim j As Long
  Dim iMax As Long
  Dim strLastRowCell As String
  Dim strCell As String
  Dim strCellPrevious As String

  '指定想要操作的表格
  Set objTable = ActiveDocument.Tables(1)

  '关闭屏幕刷新
   Application.ScreenUpdating = False

  For i = objTable.Rows.Count To 2 Step -1
    '设置变量为表格最后一行
    Set objRow = objTable.Rows(i).Range
    strLastRowCell = LCase(objRow.Cells(1).Range.Text)

    For j = i - 1 To 1 Step -1
      '设置对象变量为前一行
      Set objPreviousRow = objRow.Previous(wdRow)
      strCellPrevious = LCase(objPreviousRow.Cells(1).Range.Text)

      If strLastRowCell = strCellPrevious Then
          Set objRow = objPreviousRow.Next(wdRow)
          objPreviousRow.Rows(1).Delete
      Else
          Set objRow = objPreviousRow
      End If
    Next j
  Next i

 '打开屏幕更新
  Application.ScreenUpdating = True
End Sub