Найти заменить условие - PullRequest
Новая
       20

Найти заменить условие

0 голосов
/ 12 июня 2019

Я хочу использовать поиск VBA и заменить его оператором IF. Я получил часть поиска и замены, но я хочу, чтобы Excel изменял значения только в том случае, если в столбце A указано «2019».

Я не знаю, как включить оператор If в мой код. 

Sub TypeBusinessReplace()

Dim myDataSheet As Worksheet
Dim myReplaceSheet As Worksheet
Dim myLastRow As Long
Dim myRow As Long
Dim myFind As String
Dim myReplace As String
'   Specify name of Data sheet
Set myDataSheet = Sheets("sheet2")
'   Specify name of Sheet with list of replacements
Set myReplaceSheet = Sheets("sheet1")
'   Assuming list of replacement start in column B on row 2, find last 
entry in list
myLastRow = myReplaceSheet.Cells(Rows.Count, "E").End(xlUp).Row
Application.ScreenUpdating = False
'   Loop through all list of replacments

For myRow = 2 To myLastRow
'       Get find and replace values (from columns B and C)
myFind = myReplaceSheet.Cells(myRow, "E")
myReplace = myReplaceSheet.Cells(myRow, "H")
'       Start at top of data sheet and do replacements
myDataSheet.Activate
Range("E1").Select
'       Ignore errors that result from finding no matches
On Error Resume Next
'       Do all replacements on column A of data sheet
Columns("Q:Q").Replace What:=myFind, Replacement:=myReplace, 
LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
'       Reset error checking
On Error GoTo 0
Next myRow
Application.ScreenUpdating = True
MsgBox "Replacements complete!"
End Sub
...