Код, не переходящий на последнюю ячейку, которая нуждается в обновлении

Question

У меня есть несколько текстовых элементов, которые необходимо изменить. Данные, которые необходимо изменить, будут отображаться только в столбце B таблицы. Код работает, но в длинном списке последнее вхождение действительного изменения не происходит. Напр. «Роджер» не обновляется, когда он является последней заполненной ячейкой и нуждается в изменении. На самом деле у меня около 12 утверждений IF Then.

Я пробовал вставить петлю и получил ошибку.

Sub Names2() 
Dim aRow As Integer 

For aRow = 1 To WorksheetFunction.CountA(Columns(2)) 

    If Cells(aRow, 2) = "Jay" Then 
     Cells(aRow, 2) = "Jason" 
    End If 

    If Cells(aRow, 2) = "Steve" Then 
     Cells(aRow, 2) = "Steven" 
    End If 

    If Cells(aRow, 2) = "Rog" Then 
     Cells(aRow, 2) = "Roger" 
    End If 

    Next aRow 

End Sub 

Answer 1

Также Вы можете сделать это без Looping (быстрее):

Sub test() 

With Columns("B") 
    .Replace "Jay", "Jason", xlWhole 
    .Replace "Steve", "Steven", xlWhole 
    .Replace "Rog", "Roger", xlWhole 
End With 

End Sub 

Select Case Чтобы использовать (для столбца "A"):

Select Case Cells(aRow, 1).Value 
    Case "Jay" 
    Cells(aRow, 1).Value = "Jason" 
    Case "Steve" 
    Cells(aRow, 1).Value = "Steven" 
    Case "Rog" 
    Cells(aRow, 1).Value = "Roger" 
End Select 

Answer 2

Попробуйте это.

Sub Names2() 
Dim aRow As Long, FRowB As Long 
Dim wk As Worksheet 
Dim m As Long 

Set wk=Sheet1   'Replace this with your Worksheet Number 

m=wk.Rows.Count 

FRowB = wk.Range("B" & m).End(xlUp).Row 

For aRow = 1 To FRowB 

    If Cells(aRow, 2) = "Jay" Then Cells(aRow, 2) = "Jason" 

    If Cells(aRow, 2) = "Steve" Then Cells(aRow, 2) = "Steven" 

    If Cells(aRow, 2) = "Rog" Then Cells(aRow, 2) = "Roger" 


Next aRow 

End Sub 

Answer 3

Thevalue из Arow 1 всего кода, вам необходимо увеличить его, чтобы переместить его на следующую строку, чтобы сделать его проще для вас, чтобы понять, что я не пишу новый код для выполнения этой задачи, но модифицируя код

Sub Names2() 

For aRow = 1 To WorksheetFunction.CountA(Columns(2)) 

If Cells(aRow, 2) = "Jay" Then 
    Cells(aRow, 2) = "Jason" 
aRow = aRow+1 
End If 

If Cells(aRow, 2) = "Steve" Then 
    Cells(aRow, 2) = "Steven" 
aRow = aRow+1 
End If 

If Cells(aRow, 2) = "Rog" Then 
    Cells(aRow, 2) = "Roger" 
aRow = aRow+1 
End If 

Next aRow 

End Sub