Excel 无法导航到下一行
我是Excel vba的新手,通过获取他人制作和在线共享的内容并根据我的需要进行定制来学习。我有一些将数据输入到电子表格中特定位置的代码,需要移动到下一行以获取新数据。以下是我的代码:Excel 无法导航到下一行,excel,vba,Excel,Vba,我是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 data
'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是一个通配符。但我需要这一个去一个特定的地点在电子表格开始。非常感谢您提供的任何帮助。
iRow2=iRow2+1
应该会增加行值。您可能需要为创建一个循环,以便同时按顺序处理多行。谢谢您的解决方案。我真的很感激。我一直在尝试你的建议的多种变体,但仍然无法让它移动到下一个iRow。我尝试过使用和不使用For循环,它一直返回到第一个空行并覆盖上一个条目。但是我是个新手,可能把它放错地方了。第一次定义iRow2
的行是搜索空行。这一行不能重复,应该在第一次iRow2
中只运行一次,然后您自己更新iRow2
。这是我的想法,但我不知道如何阻止这种情况发生。不要在循环中写入它。。。。