Excel VBA无法跳转至下一行问题求助（新手用户）

嘿，作为VBA新手能自己借鉴代码并自定义，这已经超棒啦！咱们来搞定你遇到的“无法跳转至下一行录入新数据”的问题～

你的代码问题分析 #

从你给出的代码片段来看，Find方法没有写完整，而且仅靠找"CFDA#"表头的方式，没法直接定位到表头下方的第一个空行——这就是你没法跳转的核心原因。

修正后的完整代码 #

我帮你完善了代码，加入了精准定位空行的逻辑，还增加了错误判断：

'Code for saving the data in COFF-171
Dim iRow2 As Long
Dim ws2 As Worksheet
Dim headerCell As Range

Set ws2 = Worksheets("COFF-171")
' 精确找到"CFDA#"表头所在的单元格（避免匹配到包含该文本的其他内容）
Set headerCell = ws2.Cells.Find(What:="CFDA#", _
    SearchOrder:=xlRows, _
    SearchDirection:=xlPrevious, _
    LookIn:=xlValues, _
    LookAt:=xlWhole)

If Not headerCell Is Nothing Then
    ' 从表头所在列的最后一行往上找，定位到最后一行有数据的行，下一行就是空行
    iRow2 = ws2.Cells(ws2.Rows.Count, headerCell.Column).End(xlUp).Row + 1
    
    ' 这里可以添加你的数据录入代码，比如：
    ' ws2.Cells(iRow2, headerCell.Column).Value = "你的CFDA编号"
    ' ws2.Cells(iRow2, headerCell.Column + 1).Value = "其他数据"
    MsgBox "已定位到空行：第" & iRow2 & "行，可开始录入数据！"
Else
    ' 如果没找到表头，弹出提示避免报错
    MsgBox "未在工作表COFF-171中找到'CFDA#'表头，请检查！"
End If

关键改进点说明 #

• 精确匹配表头：加入LookAt:=xlWhole确保只找到完全等于"CFDA#"的单元格，不会误匹配类似"CFDA#123"的内容
• 可靠定位空行：通过表头所在列的底部往上找最后一行数据，再加1得到空行，这种方式比单纯用Find更稳定，不会受其他列空行的干扰
• 错误处理：增加了表头是否存在的判断，避免因表头找不到导致代码崩溃

如果还有其他细节需要调整（比如录入多列数据的格式），随时告诉我哦！

内容的提问来源于stack exchange，提问作者Phil