A way to delete when 2nd column is empty

macropod · #2 04-04-2020, 05:42 AM

Deleting empty table rows is far simpler than what you're using. For example:

Code:

Sub DeleteEmptyRows()
Application.ScreenUpdating = False
Dim Tbl As Table, r As Long
For Each Tbl In ActiveDocument.Tables
  With Tbl
    For r = .Rows.Count To 1 Step -1
      With .Rows(r)
        If Len(.Range.Text) = .Cells.Count * 2 + 2 Then .Delete
      End With
    Next
  End With
Next
Application.ScreenUpdating = True
End Sub

To delete a row if a cell in a specified column (in this case column 2) is blank:

Code:

Sub DeleteEmptyRows()
Application.ScreenUpdating = False
Dim Tbl As Table, r As Long
For Each Tbl In ActiveDocument.Tables
  With Tbl
    For r = .Rows.Count To 1 Step -1
      With .Rows(r)
        If Len(.Cells(2).Range.Text) = 2 Then .Delete
      End With
    Next
  End With
Next
Application.ScreenUpdating = True
End Sub

PS: When posting code, please structure your code properly and use the code tags, indicated by the # button on the posting menu. Without them, your code loses much of whatever structure it had

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Why i can not delete empty row in table?	jaryszek	Word Tables	2	06-28-2019 04:19 AM
Need to delete duplicate of a column B based on column A and keep ColumnB if unique value to columnA	enigmaprince	OneNote	0	08-23-2017 01:30 PM
Delete Empty Table Rows	cltay87	Word VBA	4	02-27-2017 04:23 AM
Delete row with empty cel in a table	vibor	Word VBA	9	05-03-2015 05:42 AM
Creating VBA Code to Delete Empty Column in Table	Faugs	Word VBA	5	08-07-2014 03:29 PM