用vba修改excel中的数据

按要求修改某列数据，如：SHW20211013008，修改为SHW211013008
要求：G列SHW开头去后面跟随的20
M列若值为0则删除整行数据。

Option Explicit

Sub test()
Dim I As Long
Dim tmpString As String

With ActiveSheet
For I = 1 To .UsedRange.Rows.Count
tmpString = Trim(Range("G" & I))
If Mid(tmpString, 4, 2) = "20" Then Range("G" & I) = Left(tmpString, 3) & Mid(tmpString, 6)
'G列SHW开头去后面跟随的20，考虑到如果SHW后面不是20就不变
If Range("M" & I) = 0 Then .Rows(I).Delete
'M列若值为0则删除整行数据。
Next I
End With
End Sub