Excel VBA Userform无法跳转至下一行的技术求助

你遇到的两个核心问题我都get到了：提交后没法跳转到下一行（因为A、C列预填充，常规空行判断没用），还有重启文件后要能记住上次停留的行。咱们一步步来改代码解决：

一、通过B列判断可用行，实现提交后自动跳转 #

原代码里的LastRow变量没定义，RowCount也没派上用场，这是跳转失效的关键。咱们改成通过B列查找第一个空行来定位——毕竟A、C列已经预填了内容，B列空着的行就是咱们要填写的目标行：

修改后的提交按钮代码 #

Private Sub butOK_Click()
    Dim targetRow As Long
    Dim ctl As Control
    Dim ws As Worksheet
    
    ' 先指定要操作的工作表
    Set ws = ThisWorkbook.Worksheets("EXPECTED RETURNS")
    
    ' 查找B列从6865行开始的第一个空行
    targetRow = ws.Range("B6865:B" & ws.Cells(ws.Rows.Count, "B").End(xlUp).Row + 1).Find(What:="", LookIn:=xlValues, LookAt:=xlWhole).Row
    
    ' 把Userform里的内容写入对应单元格（用列标更直观，避免Offset搞混列位置）
    With ws
        .Cells(targetRow, "B").Value = Me.txtDate.Value
        .Cells(targetRow, "D").Value = Me.txtDevice.Value
        .Cells(targetRow, "E").Value = Me.txtID.Value
        .Cells(targetRow, "F").Value = Me.txtSN.Value
        .Cells(targetRow, "G").Value = Me.txtTrans.Value
        .Cells(targetRow, "H").Value = Me.txtIDTrans.Value
        .Cells(targetRow, "I").Value = Me.txtMS.Value
        .Cells(targetRow, "J").Value = Me.txtCountry.Value
        .Cells(targetRow, "K").Value = Me.txtCamp.Value
        .Cells(targetRow, "L").Value = Me.txtOrig.Value
        .Cells(targetRow, "M").Value = Me.txtProgram.Value
        .Cells(targetRow, "N").Value = Me.txtPOC.Value
        .Cells(targetRow, "O").Value = Me.txtPOCEmail.Value
        .Cells(targetRow, "P").Value = Me.txtDSN.Value
        .Cells(targetRow, "Q").Value = Me.txtIR.Value
        .Cells(targetRow, "R").Value = Me.txtEI.Value
    End With
    
    ' 清空表单所有控件内容
    For Each ctl In Me.Controls
        Select Case TypeName(ctl)
            Case "TextBox", "ComboBox"
                ctl.Value = ""
            Case "CheckBox"
                ctl.Value = False
        End Select
    Next ctl
    
    ' 保存当前行号，为重启后识别做准备
    SaveLastRow targetRow
End Sub

二、保存并记忆上次停留的行 #

要实现重启文件后自动定位到上次的行，咱们可以把行号存在工作簿的自定义属性里——这个方式不会在工作表里显示，不会被用户误删，还能随文件一起保存：

1. 添加保存行号的通用过程 #

在Userform的代码模块或者标准模块里添加这段代码：

Sub SaveLastRow(rowNum As Long)
    Dim prop As DocumentProperty
    Dim propExists As Boolean
    
    ' 检查自定义属性是否已经存在
    propExists = False
    For Each prop In ThisWorkbook.CustomDocumentProperties
        If prop.Name = "LastUserformRow" Then
            propExists = True
            prop.Value = rowNum
            Exit For
        End If
    Next prop
    
    ' 如果不存在，就新建一个自定义属性存储行号
    If Not propExists Then
        ThisWorkbook.CustomDocumentProperties.Add _
            Name:="LastUserformRow", _
            LinkToContent:=False, _
            Type:=msoPropertyTypeNumber, _
            Value:=rowNum
    End If
End Sub

2. 添加Userform加载时读取行号的代码 #

在Userform的Initialize事件里添加这段，打开表单时自动定位到上次停留的行：

Private Sub UserForm_Initialize()
    Dim prop As DocumentProperty
    Dim lastRow As Long
    Dim ws As Worksheet
    
    Set ws = ThisWorkbook.Worksheets("EXPECTED RETURNS")
    
    ' 尝试读取自定义属性里存储的行号
    On Error Resume Next
    lastRow = ThisWorkbook.CustomDocumentProperties("LastUserformRow").Value
    On Error GoTo 0
    
    ' 如果是第一次打开文件，没有记录，就自动定位到B列第一个空行
    If lastRow = 0 Then
        lastRow = ws.Range("B6865:B" & ws.Cells(ws.Rows.Count, "B").End(xlUp).Row + 1).Find(What:="", LookIn:=xlValues, LookAt:=xlWhole).Row
    End If
    
    ' 可选：如果需要把上次行的内容加载到表单里，这里可以加读取代码
    ' 比如：Me.txtDate.Value = ws.Cells(lastRow, "B").Value
End Sub

小提示 #

• 用Cells(targetRow, "列标")代替原代码的Offset，不容易搞混列的位置，后期维护也更方便。
• 如果B列从6865行开始全是空的，Find方法会自动定位到6865行，不用额外加判断。

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