Tengo un problema con esta macro que con pocos argumentos de reemplazar funciona bien pero al aumentar esta variable se vuelve muy lenta, les agradezco de antemano si me podrían ayudar a optimizar su proceso en excel,
Sub TIPOSENAL2011XTIPOSENAL()
Set a = Sheets("SEN_SENALIZACION")
Uf = Range("G" & Rows.Count).End(xlUp).Row
For i = 1 To Uf
a.Range("G" & i) = Replace(a.Range("G" & i), "SP46-SR30", "SP-46/SR-30")
a.Range("G" & i) = Replace(a.Range("G" & i), "SP47-SR30", "SP-47/SR-30")
a.Range("G" & i) = Replace(a.Range("G" & i), "SP48-SR30", "SP-48/SR-30")
a.Range("G" & i) = Replace(a.Range("G" & i), "SP67-SR30", "SP-67/SR-30")
a.Range("G" & i) = Replace(a.Range("G" & i), "SR-28 Plaqueta", "SR-28 PLAQUETA")
a.Range("G" & i) = Replace(a.Range("G" & i), "SRB01-SRB37", "SRB-01/SRB-37")
a.Range("G" & i) = Replace(a.Range("G" & i), "SI-27vc", "SI-27")
a.Range("G" & i) = Replace(a.Range("G" & i), "SI26-SR39", "SI-26/SR-39")
Next i
End Sub