Excel VBA автоматически удаляет неиспользуемые строки таблицы в Word

Question

Я заполняю таблицу с закладками из excel и использую следующий код для удаления строк, которые не использовались. Процесс удаления строка за строкой медленный, любая идея, как отредактировать, чтобы удалить все неиспользуемые строки в одной go?

For lRow = 1 To .Rows.Count
        If Sheets("Bookmark Data").Range("B3").Offset(bmRow + lRow - 1, 2) = "" Then 'And lRow <> 1 Then
        .Rows(lRow - delCount).Delete
        Let delCount = delCount + 1

Answer 1

Предполагая, что таблица Word не имеет вертикально объединенных ячеек, попробуйте:

Dim r As Long
With MyTbl
  For r = .Rows.Count To 1 Step -1
    With .Rows(r)
      If Len(.Range.Text) = .Cells.Count * 2 + 2 Then .Delete
    End With
  Next r
End With