Sub s() n = Cells(Rows.Count, 2).End(3).Row For i = 1 To n t = Cells(i, 2).Text If t Like "*#额#*" Then k = InStr(t, "额") Cells(i, 2) = Left(t, k - 2) & Mid(t, k + 2) End If NextEnd Sub
