istenilen satırları komple silme

[sömürgen]

arkadaşlar ben aşağıdaki örnekteki mesela G03 veya G02 yazan satırı bulup komple o satırı silmek istiyorum yardımlarınızı bekliyorum

bütün G03 veya G02 satırlarını otomatik bulup silsin teşekkürler

N17 Q1
N19 G03 X50.25 Y20.132 I2.625 J0
N20 G03 X50.25 Y20.132 I-5.125 J0
N21 G01 X50.15
N22 Q22
N23 G0 X45 Y140.132
N25 Q1
N27 G03 X50.25 Y140.132 I2.625 J0
N28 G03 X50.25 Y140.132 I-5.125 J0
N29 G01 X50.15
N30 Q22
N31 G0 X45 Y260.132
N33 Q1
N35 G03 X50.25 Y260.132 I2.625 J0
N36 G03 X50.25 Y260.132 I-5.125 J0
N37 G01 X50.15
N38 Q22
N39 G0 X75.166 Y253.656
N41 Q1
N43 G01 X66.362 Y254.496
N44 G03 X65.25 Y253.502 I-0.112 J-0.994
N45 G01 Y231.501
N46 G03 X65.741 Y228.903 I-0.125 J-1.369
N47 G01 Y223.418
N48 G03 X74.529 Y192.749 I67.147 J2.647
N49 G02 X74.529 Y87.515 I-77.199 J-52.617
N50 G03 X65.741 Y56.846 I58.359 J-33.316
N51 G01 Y51.362
N52 G03 X65.25 Y48.763 I-0.616 J-1.229
N53 G01 Y5.132
N54 G02 X60.125 Y0.007 I-5.125 J0
N55 G01 X30.125
N56 G02 X25 Y5.132 I0 J5.125
N57 G01 Y48.763
m30

 

[excel03]

merhaba;,

Sub sil()
Dim s As Integer
For j = 1 To 2
If j = 1 Then ara = "G02"
If j = 2 Then ara = "G03"

    For i = 1 To Cells(65536, 1).End(3).Row
    s = InStr(1, Cells(i, 1), ara)
    If s > 0 Then
    Rows(i & ":" & i).Delete xlUp
    End If
    Next
Next
End Sub

 

[sömürgen]

çok teşekkür ederim