delete specific digits & letters also hyphen from specific sheets into columns

[Alaa mg]

hello

I would delete theses from sheet1,sheet2(TT,13TM,12TA,TN,TD,-) . the sheet1 should delete from column B , but the sheet2 should delete from columns B,C .about the hyphen should just delete before 12MR ,22TM.

zz.xlsx
	B
1	brand
2	CC 2500M14 TT 11TM NN1 GER
3	CC 2500M14 13TM TN T123 GER
4	CC 2500M14 11TM T123 TN GER
5	CC 2500M14 11TM NN1 TT GER
6	BBW 1248-23 TL-ML 13TR NN IT
7	FG 12456TR40***** 22TM TT 1445V IT
8	DF 125/22MT23.5-22TM SL200 GER
9	MLC 111MR12L 12TM TD SV123 IT
10	NN 123/34T22.5-12MR SS1/1 NN GR
SHEET1

sheet2

zz.xlsx
	B	C	D
1	BRAND	TY	OR
2	CC 2500M14 TT 11TM	NN1	GER
3	CC 2500M14 12TA	T123 TN	GER
4	CC 2500M14 11TM TN	T123	GER
5	CC 2500M14 11TM	NN1 TT	GER
6	BBW 1248-23 TL-ML 13TR	NN	IT
7	FG 12456TR40***** 1445V	22TM TT	IT
8	DF 125/22MT23.5-22TM ML-120	SL200	GER
9	MLC 111MR12L 12TM	TD SV123	IT
10	NN 123/34T22.5-12MR	SS1/1 NN	GER
SHEET2

note: my data are about 500 rows into two sheets

 

[mumps]

Try:

Sub replaceVals()
    Application.ScreenUpdating = False
    Dim v1 As Variant, v2 As Variant, i As Long, ws As Worksheet
    v1 = Array("TT", "13TM", "12TA", "TN", "TD")
    v2 = Array("-12MR", "-22TM")
    For Each ws In Sheets
        If ws.Name = "Sheet1" Then
            For i = LBound(v1) To UBound(v1)
                ws.Range("B:B").Replace v1(i), ""
            Next i
            For i = LBound(v2) To UBound(v2)
                ws.Range("B:B").Replace v2(i), " " & Mid(v2(i), 2, 4)
            Next i
        ElseIf ws.Name = "Sheet2" Then
            For i = LBound(v1) To UBound(v1)
                ws.Range("B:C").Replace v1(i), ""
            Next i
            For i = LBound(v2) To UBound(v2)
                ws.Range("B:C").Replace v2(i), " " & Mid(v2(i), 2, 4)
            Next i
        End If
    Next ws
    Application.ScreenUpdating = True
End Sub

 

[Alaa mg]

thanks for this code ! actually I don't test it yet . because I see there is mistake about this line

    v2 = Array("-12MR", "-22TM")

I would just delete the hyphen where locates before 12MR", "22TM as I said in OP

about the hyphen should just delete before 12MR ,22TM.

 

[mumps]

Actually it is not a mistake. That line of code will replace "-12MR" and "-22TM" with "12MR" and "22TM". Try the macro and see how it works.

 

[Alaa mg]

my apologies ! thanks for clarifying
code works very well . much appreciated

 

[mumps]

You are very welcome. No apologies needed.