varios - Buscar y reemplazar una cantidad de caracteres en Excel usando VBscript

formula para buscar y reemplazar en excel

Question

Necesito buscar y reemplazar una parte específica de una cadena en una hoja de Excel.

Aquí está mi código y no sé cómo puedo buscar exactamente esta parte en cada valor de Cell.value .

my_new_string = "abc"
For each objSheet1 in objworkbook2.sheets
If objSheet1.Name = "Name1" Then
LastRow = objsheet1.UsedRange.Rows.Count + objsheet1.UsedRange.Row - 1
For i = 1 To LastRow Step 1
For j = 1 To 15 Step 1
If objExcel1.Cells(i, j).value = "xyz" Then ''Here I have to check if the Cell value contains xyz and to replace it by **my_new_string**
End if
Next
Next
End If
Next

¿Alguna ayuda, por favor?

Answer 1

Gracias a todos,

esto está funcionando bien para mí.

For Each objsheet1 In objworkbook2.Sheets
With objsheet1
If .Name = "BatchRun" Then
On error resume next
For i = 1 To 15 Step 1
For j = 1 To 10 Step 1
If InStr(1, .Cells(i, j).Value, my_old_string) > 0 Then
.Cells(i, j).Value = Replace(.Cells(i, j).Value, my_old_string, my_new_string)
End If
Next
Next
End If
End with
Next

Answer 2

Cambié tu método para encontrar la última fila a una que sea mucho más confiable.

También utilizaste 2 objetos diferentes para describir la misma hoja, ¡así que lo arreglé! ;)

Finalmente, solo necesita usar el método Replace que hará el trabajo perfectamente bien, sin necesidad de probar si la cadena está presente con Instr ( Instr si tiene algo más que hacer si se detecta la cadena anterior)

Const my_old_string = "xyz"
Const my_new_string = "abc"
Const xlPart = 2
Const xlFormulas = -4123
Const xlByRows = 1
Const xlPrevious = 2
For Each objsheet1 In objworkbook2.Sheets
With objsheet1
If .Name = "Name1" Then
LastRow = .Cells.Find("*",.Range("A1"),xlPart,xlFormulas,xlByRows,xlPrevious,False).Row
For i = 1 To LastRow Step 1
For j = 1 To 15 Step 1
.Cells(i, j).Value = Replace(.Cells(i, j).Value, my_old_string, my_new_string)
'' If InStr(1, .Cells(i, j).Value, my_old_string) Then
'' .Cells(i, j).Value = Replace(.Cells(i, j).Value, my_old_string, my_new_string)
'' End If
Next
Next
End If
End With
Next