VBA Change Loop count from 1000 to 1

Hello i found this script, problem it is very slow and i am not able to change it that it is working faster.

I would like to count the cells from A 1000 to A1 (in active table) and do something.

The code below do the work but super slow, and sometimes it will not stop woking.

Could you help me please ?
I tried to set i = 1000 that doesnt help and bring me in an endless loop (i think)

Sub Zeilelöschen_Count_drei_zeichen()
Dim i As Long
For i = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
 If Len(Cells(i, 1).Value) < 4 Then Rows(i).Delete
Next i
End Sub

Dear sintek, sorry i am a totaly new in Excel and i have no idea what you mean.

I know a little bit javascript programming but nothing with table manipulation.

Do you have an code example for me ?

Thank you :-)

Originally Posted by sintek

Your provided code is checking length of cell?
Use a helper column with formula...Filter on result and delete rows at once

For length < 4, could also filter with a criteria equal to ???

I couldnt load it up couse i do not know how to bring that file under 1000 kb
7 zip doesnt work to tell me invalid file .
Links to my cloud are also not allowed.

Sorry I meant in a vba loop. Would be 3 iterations rather than 1000 if a helper col wasn't an option.

I just have 11 rows and the vba script inside 9000 kb

m	39
kühroint	11
wandern	15
pin	5
www	12
c	3

Easy...

For i = 1000 To 1 Step -1

Thank you Guru i will try that.

Try this one too.

    For i = [max(if(a1:a10000<>"",row(1:10000)))] To 1 Step -1

Thank you Jindon ! and all others who try to help me it works (like a skyrocket :-))

Thank you so much !

Here is the working Example for all how need that in future:

Sub Zeilelöschen_Count_drei_zeichen()

For i = [max(if(a1:a10000<>"",row(1:10000)))] To 1 Step -1
 If Len(Cells(i, 1).Value) < 4 Then Rows(i).Delete
Next i
End Sub

..............................

You are welcome.

I suggest you to add a variable.

e.g

Sub Zeilelöschen_Count_drei_zeichen()
Dim i As Long, LR As Long
LR=[max(if(a1:a10000<>"",row(1:10000)))]
For i = LR To 1 Step -1
 If Len(Cells(i, 1).Value) < 4 Then Rows(i).Delete
Next i
End Sub

If that takes care of your original question, please select Thread Tools from the menu link above and mark this thread as SOLVED.

Also, you may not be aware that you can thank those who have helped you by clicking the small star icon located in the lower left corner of the post in which the help was given. By doing so you can add to the reputation(s) of those who helped.

Wow super thank you Jindon , i will try to mark your post as solution.

Ok thank you i will open a new post later , and learn how to upload files. I think the administration would like to do so. :-)