VBA向两个工作簿最后一行粘贴时，如何重置行计数变量？

首先，你遇到的核心问题是处理第二个工作簿时，没有重新计算它的空行号，导致复用了第一个工作簿的行计数。另外关于子过程嵌套的问题，我也一起给你说明白：

一、子过程嵌套的可行性 #

VBA是支持在子过程内部嵌套子过程的，但说实话这种写法可读性很差，而且嵌套的子过程只能在父过程内部调用，外部无法访问。更推荐的做法是把重复的逻辑抽成独立的私有子/函数，通过参数传递需要处理的工作簿、工作表，这样代码更清晰，也方便维护。

二、重置第二个工作簿行计数的关键方案 #

解决行计数复用的问题，核心是为每个工作簿单独计算空行号，不要共用变量旧值。具体可以这么做：

1. 用对象变量明确指向不同工作簿/工作表 #

避免依赖ActiveWorkbook或ActiveSheet，直接用变量绑定目标工作簿和工作表，这样就不会搞混操作对象。

2. 处理第二个工作簿时重新计算空行号 #

在开始处理第二个工作簿的逻辑前，重新获取它的最后一行，再加1得到空行位置，而不是沿用之前的emptyrow2数值。

示例修改后的代码片段 #

Option Explicit

Private Sub CommandButton1_Click()
    Dim AirSN As String, OilSN As String, DashNo As Single
    ' 声明工作簿和工作表对象，明确区分两个操作目标
    Dim wbFirst As Workbook, wbSecond As Workbook
    Dim wsFirst As Worksheet, wsSecond As Worksheet
    Dim emptyrowFirst As Long, emptyrowSecond As Long
    
    ' ====== 处理第一个工作簿 ======
    Set wbFirst = Workbooks("你的第一个工作簿名称.xlsx")
    Set wsFirst = wbFirst.Sheets("目标工作表名")
    ' 计算第一个工作簿的空行号
    With wsFirst
        emptyrowFirst = .Cells(.Rows.Count, "A").End(xlUp).Row + 1
    End With
    ' 这里写第一个工作簿的处理逻辑，比如写入数据
    wsFirst.Cells(emptyrowFirst, "A").Value = AirSN
    ' ...其他操作
    
    ' ====== 处理第二个工作簿（关键：重置行计数）======
    Set wbSecond = Workbooks("你的第二个工作簿名称.xlsx")
    Set wsSecond = wbSecond.Sheets("目标工作表名")
    ' 重新计算第二个工作簿的空行号，这一步是核心！
    With wsSecond
        emptyrowSecond = .Cells(.Rows.Count, "A").End(xlUp).Row + 1
    End With
    ' 写入第二个工作簿的数据到新计算的空行
    wsSecond.Cells(emptyrowSecond, "A").Value = OilSN
    ' ...其他操作
    
    ' 最后释放对象变量（好习惯）
    Set wsFirst = Nothing
    Set wbFirst = Nothing
    Set wsSecond = Nothing
    Set wbSecond = Nothing
End Sub

3. 进阶：封装空行计算逻辑为函数 #

如果需要多次计算空行，可以把这个逻辑抽成函数，避免重复代码：

' 传入目标工作表和列号，返回下一个空行的行号
Private Function GetNextEmptyRow(targetWs As Worksheet, targetCol As String) As Long
    With targetWs
        GetNextEmptyRow = .Cells(.Rows.Count, targetCol).End(xlUp).Row + 1
    End With
End Function

然后在主过程里调用：

emptyrowFirst = GetNextEmptyRow(wsFirst, "A")
emptyrowSecond = GetNextEmptyRow(wsSecond, "A")

这样代码更简洁，也不容易出错。

总结 #

• 不要复用不同工作簿的行计数变量，处理每个工作簿时单独计算空行号；
• 用对象变量绑定目标工作簿/工作表，避免操作对象混淆；
• 子过程可以嵌套，但更推荐独立封装逻辑，提升代码可读性。

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