Hi Experts,
My loop deletes all rows, which do have the word table in the first column. However, this is extremely slow for worksheets with over 10000 rows.
Does anybody has a faster coding idea?
j = 1
While Sheets(m).Cells(j, 1) <> ""
If Sheets(m).Cells(j, 1) = "table" Then
Rows(j & ":" & j).Select
Selection.Delete Shift:=xlUp
j = j - 1
End If
j = j + 1
Wend
Regards,
My loop deletes all rows, which do have the word table in the first column. However, this is extremely slow for worksheets with over 10000 rows.
Does anybody has a faster coding idea?
j = 1
While Sheets(m).Cells(j, 1) <> ""
If Sheets(m).Cells(j, 1) = "table" Then
Rows(j & ":" & j).Select
Selection.Delete Shift:=xlUp
j = j - 1
End If
j = j + 1
Wend
Regards,