Попытка удалить строку, если в строке A нет данных: J
Я пытаюсь удалить строку, если нет данных изA:J
Я нашел этот код и пытался его отредактировать, но это удаляет весь листданные в конце концов.
Любая помощь будет принята с благодарностью
Sub DeleteRows()
Dim rngBlanks As Range
Dim i As Integer
For i = 1 To 10
On Error Resume Next
Set rngBlanks = Columns(i).SpecialCells(xlCellTypeBlanks)
On Error GoTo 0
If Not rngBlanks Is Nothing Then
rngBlanks.EntireRow.Delete
End If
Next
End Sub