Excel vba replace примеры

В этом учебном материале вы узнаете, как использовать Excel функцию REPLACE (в VBA) с синтаксисом и примерами.

Описание

Microsoft Excel функция REPLACE заменяет последовательность символов в строке другим набором символов.
Функция REPLACE — это встроенная в Excel функция, которая относится к категории строковых / текстовых функций. Её можно использовать как функцию VBA в Excel.
В качестве функции VBA вы можете использовать эту функцию в коде макроса, который вводится через редактор Microsoft Visual Basic Editor. Если вы ищете версию функции ЗАМЕНИТЬ для рабочего листа, прочтите страницу функции ЗАМЕНИТЬ (WS), поскольку она имеет другой синтаксис.

Синтаксис

Синтаксис функции REPLACE в Microsoft Excel:

Replace ( string1, find, replacement, [start, [count, [compare]]] )

Аргументы или параметры

string1

Строка для замены последовательности символов другим набором символов.

find

Строка, которую будет искать в string1 .

replacement

Она заменит find в string1.

start

Необязательно. Это позиция в string1, с которой начинается поиск. Если этот параметр опущен, функция REPLACE начнет поиск с позиции 1.

count

Необязательно. Это количество заменяемых символов. Если этот параметр опущен, функция REPLACE заменит все вхождения find на replacement.

compare

По желанию. Это может быть одно из следующих значений:

Значение параметра	Описание
vbBinaryCompare	Двоичное сравнение
vbTextCompare	Текстовое сравнение

Возвращаемое значение

Функция REPLACE возвращает строковое значение.

Применение

• Excel для Office 365, Excel 2019, Excel 2016, Excel 2013, Excel 2011 для Mac, Excel 2010, Excel 2007, Excel 2003, Excel XP, Excel 2000

Тип функции

• Функция VBA

Пример (как функция VBA)

Функцию REPLACE можно использовать в коде VBA в Microsoft Excel.
Давайте взглянем на некоторые примеры функции REPLACE чтобы понять, как использовать Excel функцию REPLACE в коде Excel VBA:

Например:

В этом примере переменная с именем LResult теперь будет содержать значение «кокос».

Excel VBA Replace Function

As in Excel, we have a function where we can find and replace any word or character or sentence with any letter. But by that process, we can only replace one kind of sentence or letter at a time. With the help of the VBA Replace Function, we can replace as many words or letters or sentences in a single shot. This saves huge time and effort doing single activity multiple times. For this, we will use the Replace function, which is in the built-in VBA function list.

Below the syntax and argument of Replace function in VBA.

How to Use Excel VBA Replace Function?

We will learn how to use a VBA Replace Excel function with few examples.

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

VBA Replace Function – Example #1

We have a sample data of some sentences where we will replace one word and paste that updated sentence in Sentence B Column.

Follow the below steps to use the Replace function in Excel VBA.

Step 1: Go to VBA, and in the Insert menu tab, select Module.

Step 2: Now, write a sub-category in the name of a performed function or in any name as per your choice, as shown below.

Code:

Sub VBA_Replace2()

End Sub

Step 3: Now define a dimension as Long as we will be selecting a complete sentence. Here we have taken it as X.

Code:

Sub VBA_Replace2()

    Dim X As Long

End Sub

Step 4: Now, in that Long X, select the maximum range till where our data could go up. Here we have taken as A1000 cell range, and for going up till our data starts, use End(xlUp) followed by a dot(.)Row. Which means we will be moving up in the same column till that row which has the data. This process in life Ctrl + Up arrow key in excel.

Code:

Sub VBA_Replace2()

    Dim X As Long
    X = Range("A1000").End(xlUp).Row

End Sub

Note: We can select from End(xlDown), but it may not add any break or blank cell in between the data if data has.

Step 5: Now again, define one more dimension, Y, as Long as shown below.

Code:

Sub VBA_Replace2()

    Dim X As Long
    X = Range("A1000").End(xlUp).Row

    Dim Y As Long

End Sub

Step 6: Now start a For Next loop for second defined dimension Y from cell position 2 to till X range (last filled cell)

Note: Selecting cell 2 means that we are not considering the header here for replace.

Code:

Sub VBA_Replace2()

    Dim X As Long
    X = Range("A1000").End(xlUp).Row

    Dim Y As Long

For Y = 2 To X

Next Y

End Sub

Step 7: Now select the Value of Column B as Range as Y followed by a dot(.); this is like inserting a function in excel.

Code:

Sub VBA_Replace2()

    Dim X As Long
    X = Range("A1000").End(xlUp).Row

    Dim Y As Long

For Y = 2 To X

    Range("B" & Y).Value =
  
Next Y

End Sub

Step 8: Now, as we have seen in the VBA syntax of Replace function above now type Replace and select Column A and Y as the first expression of string followed by the words which we need to replace from the table.

Code:

Sub VBA_Replace2()

    Dim X As Long
    X = Range("A1000").End(xlUp).Row

    Dim Y As Long

For Y = 2 To X

    Range("B" & Y).Value = Replace(Range("A" & Y), "Delhi", "New Delhi")

Next Y

End Sub

Step 9: Now, compile the complete code and run. Once we do that, we will the word “Delhi” from Sentence A is now replaced with work “New Delhi”, and the whole sentence is copied to Sentence B.

We can select a string of words or a sentence and replace that with any required letters or sentence.

VBA Replace Function – Example #2

There is another way to replace words or sentences with the help of VBA coding. For this, we have a list of 7 subjects which are getting repeated. And we need to replace those subject names with adding serial numbers before each subject name, as shown below.

As we can see in the above screenshot, column E has unique names of those subjects which are there in column B, and column F has the subject names with a serial number at the start of it.

Follow the below steps to use Replace function in VBA.

Step 1: Now, go to VBA and from the Insert menu, add a new Module. Once we get it, start writing the Sub-category in the name of a function which is being performed, as shown below.

Code:

Sub VBA_Replace()

End Sub

Step 2: Now consider a dimension Rng as Range, InputRng as Range and ReplaceRng as Range. You can choose any other letters or words for defining ranges.

Code:

Sub VBA_Replace()

Dim Rng As Range
Dim InputRng As Range, ReplaceRng As Range

End Sub

Step 3: Now, use xTitleId as dialog box and give it a name. Here we have named it “VBA_Replace“.

Code:

Sub VBA_Replace()

Dim Rng As Range
Dim InputRng As Range, ReplaceRng As Range

    xTitleId = "VBA_Replace"

End Sub

Step 4: Now assign the Application.Selection with InputRng, this will enable the selected application to be used in VBA.

Code:

Sub VBA_Replace()

Dim Rng As Range
Dim InputRng As Range, ReplaceRng As Range

    xTitleId = "VBA_Replace"
  Set InputRng = Application.Selection

End Sub

Step 5: Now, in the next line, insert an InputBox of 3 types, Original range, xTitleId, and InputRng. Original Range is a list of those subject which are needed to get replaced, listed in column B. xTitledId is the dialog box names in the performed function. And InputRng is a range of data table in column E and F.

Code:

Sub VBA_Replace()

Dim Rng As Range
Dim InputRng As Range, ReplaceRng As Range

    xTitleId = "VBA_Replace"
    Set InputRng = Application.Selection 
    Set InputRng = Application.InputBox("Original Range ", xTitleId, InputRng.Address, Type:=8)

End Sub

Step 6: Now, in the next line, assign an Input for ReplaceRng and for this, select Replace Range column. The rest of it is the same.

Code:

Sub VBA_Replace()

Dim Rng As Range
Dim InputRng As Range, ReplaceRng As Range

    xTitleId = "VBA_Replace"
    Set InputRng = Application.Selection
    Set InputRng = Application.InputBox("Original Range ", xTitleId, InputRng.Address, Type:=8)
    Set ReplaceRng = Application.InputBox("Replace Range :", xTitleId, Type:=8)

End Sub

Step 7: Now, we will use the Application.screenupdating function, as the name says it is used for updating if it is FALSE.

Code:

Sub VBA_Replace()

Dim Rng As Range
Dim InputRng As Range, ReplaceRng As Range

    xTitleId = "VBA_Replace"
    Set InputRng = Application.Selection
    Set InputRng = Application.InputBox("Original Range ", xTitleId, InputRng.Address, Type:=8)
    Set ReplaceRng = Application.InputBox("Replace Range :", xTitleId, Type:=8)
    Application.ScreenUpdating = False

End Sub

Step 8: Now insert a For-Next loop. And for each Rng range, replace the values from ReplaceRng column.

Code:

Sub VBA_Replace()

Dim Rng As Range
Dim InputRng As Range, ReplaceRng As Range

    xTitleId = "VBA_Replace"
    Set InputRng = Application.Selection
    Set InputRng = Application.InputBox("Original Range ", xTitleId, InputRng.Address, Type:=8)
    Set ReplaceRng = Application.InputBox("Replace Range :", xTitleId, Type:=8)
    Application.ScreenUpdating = False

For Each Rng In ReplaceRng.Columns(1).Cells

    Next

End Sub

Step 9: At last, replace InputRng with the values present in Rng from the whole sheet.

Code:

Sub VBA_Replace()

Dim Rng As Range
Dim InputRng As Range, ReplaceRng As Range

    xTitleId = "VBA_Replace"
    Set InputRng = Application.Selection
    Set InputRng = Application.InputBox("Original Range ", xTitleId, InputRng.Address, Type:=8)
    Set ReplaceRng = Application.InputBox("Replace Range :", xTitleId, Type:=8)
    Application.ScreenUpdating = False

For Each Rng In ReplaceRng.Columns(1).Cells 
    InputRng.Replace what:=Rng.Value, replacement:=Rng.Offset(0, 1).Value, Lookat:=xlWhole

  Next

End Sub

Step 10: Once done, now compile and run the code. We will get and dialog box in the name of VBA_Replace. From here, select the list of subjects which we need to replace as Original Range and click on OK. Then we will get another box; from there, select the Replace range from E2 to F8. This table has the data which need to get replaced, and click on OK.

We will get Data in column B, which will get replaced from the data in column F with a serial number.

To an overview, column E has unique subject names. And column F has subject names with serial numbers. So by this, data in column B is replaced with data in column F.

Pros of VBA Replace Function

• We can replace multiple words or sentences in a single shot.
• There is no limit of words or text what we cannot replace with.
• Syntax of Replace in VBA is as easy as using the SumIf function in excel.
• VBA Replace, as shown in example-1, is the easiest way to apply.

Things to Remember

• Save as Marco Enabled Excel to avoid losing written code in VBA.
• Always consider the dimensions in such a way that it will create a value-added while we select those in code.
• Make sure you select the whole range of the sheet as shown in example-2 if it is limited to get the result. Or else you can define and select a limited cell range which would be used under Replace function.

Recommended Articles

This has been a guide to VBA Replace Function. Here we discussed VBA Replace and how to use Excel VBA Replace Function along with practical examples and a downloadable excel template. You can also go through our other suggested articles –

1. VBA Loops
2. VBA Do While Loop
3. VBA Number Format
4. VBA MsgBox