VBA - Delete rows in a column if value starts with "A"

[MrManBoy]

Gday All

I am hoping if anyone could kindly please assist.

Trying to achieve: VBA to delete all rows in a specific column i.e "A", where the value begins with ","

Example Data:

​

[TABLE="class: outer_border, width: 200, align: left"]
<tbody>[TR]
[TD="align: center"]Column A
[/TD]
[/TR]
[TR]
[TD]Bloggs, Joe
[/TD]
[/TR]
[TR]
[TD]Doe, John
[/TD]
[/TR]
[TR]
[TD], Sam
[/TD]
[/TR]
[TR]
[TD], Matt
[/TD]
[/TR]
</tbody>[/TABLE]









Hopefully that does make sense, if not let me know what further info is required.

Thank you

 

[SteveO59L]

Why use vba?

Use a formula to extract the first character, then filter on it

 

[MrManBoy]

Hey Steve - Thanks for the reply.

Reason for using VBA is to make this part of a group of automated tasks not for myself (I'm just the one tasked with outting this togeher, God knows why).

 

[MARK858]

One-way...

Sub xxx()
    Dim LstRw As Long, i As Long
    Application.ScreenUpdating = False
    LstRw = Range("A" & Rows.Count).End(xlUp).Row
    
    For i = LstRw To 1 Step -1
        If Left(Cells(i, 1), 1) = "," Then Cells(i, 1).EntireRow.Delete
    Next
    
    Application.ScreenUpdating = True
End Sub

 

[vds1]

Another way,

Sub Delete_Row()
On Error Resume Next
With Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row)
    .Replace ",*", "#N/A", xlWhole
    .SpecialCells(xlCellTypeConstants, xlErrors).EntireRow.Delete
End With
End Sub

 

[MrManBoy]

Mark858 & VDS1 - Thank you both for your assistance, both codes work like a charm!

Really appreciate the help!