Dellete column F all the values that dont have 3 digits

[Excelnewbie001]

Hope someone can help I am looking for a macro to delete all the values in colum F that dont have 3 digits. here is a sample data so in this sample below 1,3, must be deleted 2,,2 must be deleted. 4,, must be deleted. So only Numbers with 3 digits must not be deleted.Thanks for any help -this must be simple for vba programmer

1, 2, 1
1, 3,
1, 3, 0
2, , 2
2, 2, 0
2, 1, 1
3, , 1
3, 1, 0
4, ,
4, , 0
4, 0, 0
, , 4
, 4, 0

 

[Rick Rothstein]

Thank you Rick for posting this also works

Does it?

Apart from the additional requirement introduced, which has not been addressed, it doesn't produce the same elimination results on the sample data as mine, so one of us must be wrong.

I'm guessing that the difference in the results relates the second piece of data posted by the OP (1, 3, )
It has CHAR(160) at the end which Rick's code does not pick-up.
(The code I posted works on the data posted - but presumably would not if there were two CHAR(160)'s at the end of the 1, 3, )

Yes, I think footoo might be correct... I saw that single occurrence of the non-breaking space (ASCII 160) and corrected it to a normal space figuring it was an anomaly caused by the way the OP copied his data into the thread. I figured the OP would write back and tell me my code did not work if there were actually non-breaking spaces in his data (at which point I would have modified my code with a SUBSTITUTE function call inside the Evaluate function call to convert non-breaking spaces to real spaces).

 

[Peter_SSs]

if OP has zero VBA knowledge then my "approach" might be more understandable.

I would contend that in this case that suggestion is contradicted by this response ..

Dont work...the data is in column F ??

... versus these two responses ..

works like a charm

this also works

 

[oldbrewer]

Peter - I meant that quick basic style coding might be more understandable to the OP than coding as below

Sub Del_Values_v2()
Dim a As Variant, b As Variant
Dim i As Long, k As Long

a = Range("F1", Range("F" & Rows.Count).End(xlUp)).Value
ReDim b(1 To UBound(a), 1 To 1)
For i = 1 To UBound(a)
If a(i, 1) Like "#, #, #" Then
k = k + 1
b(k, 1) = a(i, 1)
End If
Next i
Range("F1").Resize(UBound(b)).Value = b
End Sub

I do not know of course.....