Доброго времени суток!
Имеется задача по макросу в excel.
Необходимо найти в таблице цифру "1" заменить на значение из конкретного столбца, конкретной строки (в которой находится "1"), найти в таблице "2" заменить на значение из конкретного столбца, конкретной строки (в которой находится "2").
Не работает:
При замене цифры "2" он заменяет не только "2" а все комбинации как 26, 52, 102 и т.д. где есть 2ка
Нужно чтобы просто "2" заменял.
Ниже текст макроса:
Sub Макрос1()
Dim z, i&: z = Range("T3:AC" & Range("AC" & Rows.Count).End(xlUp).Row).Value
With CreateObject("VBScript.Regexp"): .Pattern = "1"
For i = 1 To UBound(z)
For j = 1 To UBound(z, 2)
If .test(z(i, j)) Then z(i, j) = .Replace(z(i, j), z(i, UBound(z, 2)))
Next j, i
Range("T3").Resize(UBound(z), UBound(z, 2) - 2).Value = z
End With
End Sub
Sub Макрос2()
Dim z, i&: z = Range("T3:AD" & Range("AD" & Rows.Count).End(xlUp).Row).Value
With CreateObject("VBScript.Regexp"): .Pattern = "2"
For i = 1 To UBound(z)
For j = 1 To UBound(z, 2)
If .test(z(i, j)) Then z(i, j) = .Replace(z(i, j), z(i, UBound(z, 2)))
Next j, i
Range("T3").Resize(UBound(z), UBound(z, 2) - 2).Value = z
End With
End Sub
Имеется задача по макросу в excel.
Необходимо найти в таблице цифру "1" заменить на значение из конкретного столбца, конкретной строки (в которой находится "1"), найти в таблице "2" заменить на значение из конкретного столбца, конкретной строки (в которой находится "2").
Не работает:
При замене цифры "2" он заменяет не только "2" а все комбинации как 26, 52, 102 и т.д. где есть 2ка
Нужно чтобы просто "2" заменял.
Ниже текст макроса:
Sub Макрос1()
Dim z, i&: z = Range("T3:AC" & Range("AC" & Rows.Count).End(xlUp).Row).Value
With CreateObject("VBScript.Regexp"): .Pattern = "1"
For i = 1 To UBound(z)
For j = 1 To UBound(z, 2)
If .test(z(i, j)) Then z(i, j) = .Replace(z(i, j), z(i, UBound(z, 2)))
Next j, i
Range("T3").Resize(UBound(z), UBound(z, 2) - 2).Value = z
End With
End Sub
Sub Макрос2()
Dim z, i&: z = Range("T3:AD" & Range("AD" & Rows.Count).End(xlUp).Row).Value
With CreateObject("VBScript.Regexp"): .Pattern = "2"
For i = 1 To UBound(z)
For j = 1 To UBound(z, 2)
If .test(z(i, j)) Then z(i, j) = .Replace(z(i, j), z(i, UBound(z, 2)))
Next j, i
Range("T3").Resize(UBound(z), UBound(z, 2) - 2).Value = z
End With
End Sub