excel - 无法导航到下一行

Question

我是 Excel-vba 的新手，通过获取其他人在线制作和共享的内容并根据我的需要进行定制来学习。我有一些代码可以将数据输入到特定位置的电子表格中，并且需要移动到下一行以获取新数据。这是我的代码：

'Code for saving the data in COFF-171 
    Dim iRow2 As Long 
    Dim ws2 As Worksheet 
    Set ws2 = Worksheets("COFF-171")  

'find first empty row in database 
    iRow2 = ws2.Cells.Find(What:="CFDA#", SearchOrder:=xlRows,_
    SearchDirection:=xlPrevious, LookIn:=xlValues).Row + 1  

    With ws2
       .Cells(iRow2, 3).Value = Me.CDFANoTxtBx.Value
       .Cells(iRow2, 4).Value = Me.ProgramNameComboBx.Value 
       .Cells(iRow2, 5).Value = Me.SubrecTxtBx.Value      
       .Cells(iRow2, 6).Value = Me.SubrecExplTxtBx.Value      
       .Cells(iRow2, 7).Value = Me.TGATxtBx.Value      
       .Cells(iRow2, 8).Value = Me.AddtlNotesTxtBx.Value
    End With

这让我进入第一个单元格进行输入并输入该行的数据。它没有做的我需要它做的是转到下一行以准备新的数据输入。该语言在我拥有的另一个表中有效，因为 Find 是通配符。但我需要这个去电子表格中的特定位置才能开始。我将不胜感激提供的任何帮助。

标签： excelvba