Заменить слово в excel vba

Find & Replace Function in VBA

If your Excel job involves routine tasks finding and replacing something with something, then you need this article at any cost. Because after reading this article, you would probably save 80% of your time by learning this VBA coding technique. Find and Replace in ExcelFind and Replace is an Excel feature that allows you to search for any text, numerical symbol, or special character not just in the current sheet but in the entire workbook. Ctrl+F is the shortcut for find, and Ctrl+H is the shortcut for find and replace.read more is an often used tool. We can implement the same with VBA as well. Our earlier article, “VBA Find,” shows you how to use the FIND method in VBA. This article will show you how to use the VBA “Find & Replace” method.

Follow the article to learn this technique.

You are free to use this image on your website, templates, etc, Please provide us with an attribution linkArticle Link to be Hyperlinked
For eg:
Source: VBA Find and Replace (wallstreetmojo.com)

VBA Find and Replace Syntax

We must follow the steps below to use the Find and Replace method in VBA. First, we have selected the range of cells, so mention the range of cells using RANGE object in VBARange is a property in VBA that helps specify a particular cell, a range of cells, a row, a column, or a three-dimensional range. In the context of the Excel worksheet, the VBA range object includes a single cell or multiple cells spread across various rows and columns.read more.

Now put a dot (.) to see the IntelliSense list.

Select the Replace method from the list.

We can see the huge parameter list of the Replace method. Now, we will see each parameter explanation below.

• What: This is nothing but what we need to find to replace the value.
• Replacement: With the found value, what should be the new value to be replaced with?
• Look At: This is to mention whether we want to look at the full content or just the part of the content. We can supply two parameters here “xlWhole” & “xlPart.”
• Search Order: This mentions the search order, either rows or columns. We can supply two parameters here “xlByRows” & “xlByColumns.”
• Match Case: The content we are searching for is case-sensitive. Suppose the case-sensitive argument is TRUE or else FALSE.
• Search Format: We can also search the content by formatting the value we are looking for.
• Replace Format: We can replace one format with another format as well.

Examples of VBA Find and Replace in Excel

Below are some examples of the Excel VBA Find and Replace method.

You can download this VBA Find and Replace Excel Template here – VBA Find and Replace Excel Template

Example #1 – VBA Find and Replace the Word

Let us look at the following example to understand the VBA Find and Replace method. First, take a look at the following data.

Step 1: First, mention the Range of cells we are replacing. In this example, the range is from A1 to B15 so the code will be Range (“A1: B15”).

Code:

Sub Replace_Example1()

Range ("A1:B15")

End Sub

Step 2: Now, put a dot to see the IntelliSense list.

Step 3: Select the Replace method from the IntelliSense list.

Step 4: Mention what parameter as “September.”

Code:

Range("A1:B15").Replace What:="September"

Step 5: Next, Replace with parameter should be the new value we are replacing with, i.e., “December.”

Code:

Range("A1:D4").Replace What:="September", Replacement:="December"

As of now, ignore all the other parameters. Now, run the VBA codeVBA code refers to a set of instructions written by the user in the Visual Basic Applications programming language on a Visual Basic Editor (VBE) to perform a specific task.read more to see the replacement method with VBA.

So, it has replaced all of September with the word “December.”

Example #2 –  Case Sensitive Replacement

The more advanced example of the VBA Find & Replace method will be using case sensitive replacement methods. We have created this sample data for this example, as shown in the image below.

We have two cell data in capital letters, “HELLO.” Wherever we have a capital “HELLO,” it should be replaced by the new word “Hiii.”

As usual, write the code, and mention what to find and replace first.

Code:

Sub Replace_Example2()

Range("A1:D4").Replace What:="HELLO", Replacement:="Hiii"

End Sub

For the next argument, “Match Case,” write the condition as TRUE.

Code:

Range("A1:D4").Replace What:="HELLO", Replacement:="Hiii", MatchCase:=True

Now, run the code. It will replace only the capital “HELLO” with “Hiii.”

Imagine you have not applied the Match Case argument in VBAIn VBA, the match function is used as a lookup function and is accessed by the application. worksheet method. The arguments for the Match function are similar to the worksheet function.read more, then it will replace all the “Hello” with “Hiii.”

Note: I have removed the Match Case argument here. By default, the MATCH CASE argument value is FALSE.

As we can see in the above image, it has replaced all the “hello” words with “hiii.”

So, whenever we want to use MATCH CASE criteria, we should apply the argument as “TRUE.” By default, this argument value is “FALSE.” Like this, we can use the “FIND & REPLACE” method to find something and replace the found value with something else.

Recommended Articles

This article has been a guide to the VBA Find and Replace Method. Here we will learn how to find and replace the word in VBA Excel with examples and downloadable Excel sheets. You may also have a look at other articles related to Excel VBA: –

• VBA Charts
• What does StrConv do in Excel VBA?
• End Property in VBA
• ROUND Function in VBA

Excel VBA Replace String

Excel VBA Replace looks for a substring within a list and replaces the substring with a second substring. When we use Excel VBA Replace Strings in Data there are some situations when we need to replace some character or a string from a sentence. If we have a large set of data that we want to replace it can be a tedious task to do it manually but with this function, it is very easy to provide the arguments and replace the string.

Syntax:

The syntax for Replace String function:

Replace ( Expression as String, Old String, New String, Start, Count, Compare)
Now the expression is the main string from where we want to remove the old string and new string which will replace the old string. The other arguments are optional. If we compare this function to excel worksheet substitute function we will find that Replace in VBA is the replacement of the substitute function in excel.

How to Replace Text in String Using VBA?

We will learn how to Replace Text in String using the VBA Code in Excel.

You can download this VBA Replace String Excel Template here – VBA Replace String Excel Template

Example #1

Let us start with a basic example of using the replace function where we will replace a simple word name from the sentence “My name is Anand”. Here we will replace Anand to Aran. For this, follow the below steps:

Step 1: Insert a new module inside Visual Basic Editor (VBE). Click on Insert tab > select Module.

Step 2: Insert a new subprocedure for example 1.

Code:

Sub Example1()

End Sub

Step 3: Declare a variable as a string.

Code:

Sub Example1()

Dim Str As String

End Sub

Step 4: Now let us use replace function while providing a string as the expression to the variable.

Code:

Sub Example1()

Dim Str As String
Str = Replace("My name is Anand", "Anand", "Aran")

End Sub

Step 5: Let us use the Msgbox function to display the value we have in this variable.

Code:

Sub Example1()

Dim Str As String
Str = Replace("My name is Anand", "Anand", "Aran")
MsgBox Str

End Sub

Step 6: When we execute the code.

Example #2

Let us begin with the second example where we can use the arguments used in the replace function as the variables. We will use a different statement for this example. For this, follow the below steps:

Step 1: In the same module let us start another subprocedure.

Code:

Sub Example2()

End Sub

Step 2: Now let us declare three different variables as a string.

Code:

Sub Example2()

Dim Str, Str1, Str2 As String

End Sub

Step 3: In the first variable we can provide any string statement.

Code:

Sub Example2()

Dim Str, Str1, Str2 As String
Str = " I am a Good Boy"

End Sub

Step 4: Now in the second variable we can use the Input Box function to get input from the user.

Code:

Sub Example2()

Dim Str, Str1, Str2 As String
Str = " I am a Good Boy"
Str1 = InputBox("Enter a String")

End Sub

Step 5: Now in the third variable we can use the replace function to replace the second string to the desired string.

Code:

Sub Example2()

Dim Str, Str1, Str2 As String
Str = " I am a Good Boy"
Str1 = InputBox("Enter a String")
Str2 = Replace(Str, "Boy", Str1)

End Sub

Step 6: We will use the Msgbox function to display the result in the third string.

Code:

Sub Example2()

Dim Str, Str1, Str2 As String
Str = " I am a Good Boy"
Str1 = InputBox("Enter a String")
Str2 = Replace(Str, "Boy", Str1)
MsgBox Str2

End Sub

Step 7: When we execute the code above and give input as “girl”.

Example #3

Now we will discuss one of the optional arguments in the function which is the start option where we can define from which position we want. For this, follow the below steps:

Step 1: In the same module let us start another subprocedure.

Code:

Sub Example3()

End Sub

Step 2: Now let us declare three different variables as a string.

Code:

Sub Example3()

Dim Str, Str1, Str2 As String

End Sub

Step 3: In the first variable we can provide any string statement.

Code:

Sub Example3()

Dim Str, Str1, Str2 As String
Str = " I am a Good Boy"

End Sub

Step 4: Now in the second variable we can use the Input Box function to get input from the user.

Code:

Sub Example3()

Dim Str, Str1, Str2 As String
Str = " I am a Good Boy"
Str1 = InputBox("Enter a String")

End Sub

Step 5: Now in the third variable we can use the replace function to replace the second string to the desired string and give start position as 7.

Code:

Sub Example3()

Dim Str, Str1, Str2 As String
Str = " I am a Good Boy"
Str1 = InputBox("Enter a String")
Str2 = Replace(Str, "Boy", Str1, Start:=7)

End Sub

Step 6: We can use the Msgbox function to show the result and when we execute the code which will ask us for a string.

Code:

Sub Example3()

Dim Str, Str1, Str2 As String
Str = " I am a Good Boy"
Str1 = InputBox("Enter a String")
Str2 = Replace(Str, "Boy", Str1, Start:=7)
MsgBox Str2

End Sub

Step 7: When we press Ok we will see the final result.

Example #4

Now there is another optional argument which is the number of times we want to replace a string. For this, follow the below steps:

Step 1: In the same module let us start another subprocedure.

Code:

Sub Example4()

End Sub

Step 2: Now let us declare three different variables as a string.

Code:

Sub Example4()

Dim Str, Str1, Str2 As String

End Sub

Step 3: In the first variable we can provide any string statement.

Code:

Sub Example4()

Dim Str, Str1, Str2 As String
Str = " I am a Good Boy, but you are a bad boy"

End Sub

Step 4: Now in the second variable we can use the Input Box function to get an Input from the user.

Code:

Sub Example4()

Dim Str, Str1, Str2 As String
Str = " I am a Good Boy, but you are a bad boy"
Str1 = InputBox("Enter a String")

End Sub

Step 5: Now in the third variable we can use the replace function to replace the second string to the desired string as shown in the below screenshot and use the number of instances we want to replace the string as follows and then use msgbox function to display the result.

Code:

Sub Example4()

Dim Str, Str1, Str2 As String
Str = " I am a Good Boy, but you are a bad boy"
Str1 = InputBox("Enter a String")
Str2 = Replace(Str, "Boy", Str1, Count:=1)

End Sub

Step 6: Use the number of instances we want to replace the string as follows and then use the Msgbox function to display the result.

Code:

Sub Example4()

Dim Str, Str1, Str2 As String
Str = " I am a Good Boy, but you are a bad boy"
Str1 = InputBox("Enter a String")
Str2 = Replace(Str, "Boy", Str1, Count:=1)
MsgBox Str2

End Sub

Step 7: Once we execute the code and provide a second string as “girl” we will see the following result.

Explanation of VBA Replace String:

We have seen from the above examples that the Replace function is the replacement of the substitute function of excel. It has three mandatory arguments and other arguments are optional. We can use the optional arguments together or one at a time. Start refers to the position of the string whereas count refers to the number of times we want to replace the old string with the new string.

How to Use VBA Replace String?

The method to use this function is very simple and similar to excel worksheet function. This function needs three mandatory arguments:

1. First is the expression or the main string.
2. Then we have to provide a target string which needs to replaced.
3. And the final argument is the string which is the new string that needs to be replaced.

Things to Remember

There are few things which we need to remember about Replace string in VBA such as follows:

1. There are three arguments in the Replace function of excel and there are two optional arguments.
2. The two optional arguments are either for the number of times we want to replace or the position where we want to replace.
3. This function is similar to a substitute function in excel.

Recommended Articles

This is a guide to the VBA Replace String. Here we discuss How to Replace Text in String in Excel VBA along with practical examples and downloadable excel template. You can also go through our other suggested articles –

1. VBA RGB
2. VBA CDEC
3. VBA XML
4. VBA IsError