How to delete rows with space at front..?

[zaidan]

1. I have data with thousand rows, but i want to delete the the data that have 19 space at front using macro because to delete manually it cost lots of time.
data :
201011110900 AAXX 11094 97460 21459 70000 10256 20242 30062 40071 52015 72996 84876
___________________333 56200 57921 60067 81917 83818 80959
___________________80858=
201011111200 AAXX 11124 97460 01458 70000 10248 20239 30082 40091 60071 72162 84972
___________________333 10318 56000 57902 59002 69987 81917 83818
___________________80959=
201011111500 AAXX 11154 97460 31458 70000 10236 20228 30078 40085 57006 83836

result i want:
201011110900 AAXX 11094 97460 21459 70000 10256 20242 30062 40071 52015 72996 84876
201011111200 AAXX 11124 97460 01458 70000 10248 20239 30082 40091 60071 72162 84972
201011111500 AAXX 11154 97460 31458 70000 10236 20228 30078 40085 57006 83836


2. what is the formula to add dot or comma at the middle of the text or number:
data :
3333
10078

result :
33.33
1007.8

thanks for any help

 

[Sektor]

Sub Delete19Spaces()
    
    Dim spaces As String, i As Long, iPos As Integer
    
    spaces = String(19, " ")
    
    For i = 1 To Cells(1, 1).End(xlDown).Row
        If InStr(Cells(i, 1), spaces) > 0 Then Cells(i, 1).EntireRow.Delete
    Next
    
End Sub

 

[zaidan]

thanks a lot sektor for your quick reply.. it's work fine....

can you help to solve my second problem...?

 

[Sektor]

Actually, it aint' clear what's the location of dot/comman should be.

 

[zaidan]

i have numbers of data in several column. for example in column A i want to put dot after second text (3333 => 33.33) and in column B i want to put dot after fourth text (10078 =>1007.8).

thanks in advance

 

[John Davis]

i have numbers of data in several column. for example in column A i want to put dot after second text (3333 => 33.33) and in column B i want to put dot after fourth text (10078 =>1007.8).

thanks in advance

If the numbers have the same amount of digits per your sample, maybe something like these formulas may help?

=LEFT(A1,2)&"."&RIGHT(A1,2)

=LEFT(B1,4)&"."&RIGHT(B1,1)

 

[zaidan]

thank you John, it's work fine...

 

[John Davis]

thank you John, it's work fine...

You're welcome. Glad it worked for you.