VBA查找下一个空行时next_row变量出现类型不匹配及未定义错误

核心问题分析 #

• ws_output 声明错误：原代码用Dim ws_output As Sheet2是错误的类型声明，Sheet2是工作表的具体名称，应声明为Worksheet类型，且必须通过Set语句将变量指向实际存在的工作表，否则无法正确引用。
• next_row 未定义且赋值逻辑错误：变量未显式声明类型，加上ws_output未正确赋值，导致Sheets(ws_output)无法定位目标工作表，最终获取行号失败，触发类型不匹配/未定义错误。
• 变量声明位置不规范：VBA中变量应在过程开头统一声明，避免隐式类型转换引发的异常。

修正后的完整代码 #

Sub data_input()
    ' 声明所有变量
    Dim ws_output As Worksheet
    Dim next_row As Long
    Dim String1 As String
    Dim String2 As String
    
    ' 将ws_output指向名为"Sheet2"的工作表（请根据实际工作表名称修改）
    Set ws_output = ThisWorkbook.Worksheets("Sheet2")
    
    ' 获取目标工作表C列最后一行的下一行行号
    next_row = ws_output.Range("C" & ws_output.Rows.Count).End(xlUp).Offset(1).Row
    
    ' 获取输入区域的值
    String1 = Range("Keywords").Value
    String2 = Range("Other_Keywords").Value
    
    ' 将数据写入目标工作表对应行
    ws_output.Cells(next_row, 1).Value = String1 & ", " & String2
    ws_output.Cells(next_row, 2).Value = Range("Publication_Year").Value
    ws_output.Cells(next_row, 3).Value = Range("APA_Citation").Value
    ws_output.Cells(next_row, 4).Value = Range("Annotation").Value
    ws_output.Cells(next_row, 5).Value = Range("initials").Value
    
    ' 清空输入区域内容
    Range("Keywords").Value = ""
    Range("Other_Keywords").Value = ""
    Range("Publication_Year").Value = ""
    Range("APA_Citation").Value = ""
    Range("Annotation").Value = ""
    Range("Initials").Value = ""
    
    MsgBox "您的条目已提交。"
End Sub

关键修改说明 #

• 修正工作表变量的声明与赋值：用Set语句将ws_output绑定到具体工作表，彻底解决工作表引用错误。
• 显式声明next_row为Long类型：行号属于长整数范畴，使用Long可避免行号超过Integer范围时的溢出问题。
• 优化行号获取逻辑：直接通过ws_output引用目标工作表的单元格，避免Sheets()函数的类型不匹配问题。
• 统一变量声明位置：将所有变量声明移至过程开头，符合VBA编程规范，减少隐式错误。

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