07-27-2023, 10:38 AM
Example:
Sub FindAndReplace()
Dim searchRange As Range
Dim findValue As Variant
Dim replaceValue As Variant
'Set the range where you want to find and replace values
Set searchRange = Range("A1:A10")
'Specify the value to find and the value to replace it with
findValue = "OldValue"
replaceValue = "NewValue"
'Find and replace the value in the range
searchRange.Replace What:=findValue, Replacement:=replaceValue, LookAt:=xlWhole
End Sub
Explanation:
The code defines a subroutine named FindAndReplace.
It declares variables for the search range (searchRange), the value to find (findValue), and the value to replace it with (replaceValue).
Set searchRange = Range("A1:A10") specifies the range A1:A10 where you want to find and replace values.
findValue = "OldValue" and replaceValue = "NewValue" set the values to be found and replaced, respectively.
The searchRange.Replace method is used to find and replace the value.
What:=findValue specifies the value to find, Replacement:=replaceValue specifies the value to replace it with, and LookAt:=xlWhole indicates that it should find whole matches.
Sub FindAndReplace()
Dim searchRange As Range
Dim findValue As Variant
Dim replaceValue As Variant
'Set the range where you want to find and replace values
Set searchRange = Range("A1:A10")
'Specify the value to find and the value to replace it with
findValue = "OldValue"
replaceValue = "NewValue"
'Find and replace the value in the range
searchRange.Replace What:=findValue, Replacement:=replaceValue, LookAt:=xlWhole
End Sub
Explanation:
The code defines a subroutine named FindAndReplace.
It declares variables for the search range (searchRange), the value to find (findValue), and the value to replace it with (replaceValue).
Set searchRange = Range("A1:A10") specifies the range A1:A10 where you want to find and replace values.
findValue = "OldValue" and replaceValue = "NewValue" set the values to be found and replaced, respectively.
The searchRange.Replace method is used to find and replace the value.
What:=findValue specifies the value to find, Replacement:=replaceValue specifies the value to replace it with, and LookAt:=xlWhole indicates that it should find whole matches.