代码不循环到需要更新的最后一个单元格

Question

我有几个需要更改的文本项目。需要更改的数据只会出现在电子表格的B列中。代码的工作原理很长，但最后一次有效更改不会发生。例如。当它是最后一个填充的单元格并且需要更改时，“Roger”不会更新。实际上，我有大约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

，你也可以做到这一点没有循环（快）：

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