A way to delete when 2nd column is empty

macropod · #1 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

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Hybrid Mode Switch to Threaded Mode

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