Excel VBA定义run变量并跨表生成序列编号的实现咨询

修正后的代码可同时读取工作表1、工作表2A列的数值最大值，生成不重复的下一个编号并写入工作表1的A列末尾空行：

Sub 获取下一个编号()
    ' 绑定指定工作表，避免受当前激活工作表影响
    Dim 工作表1 As Worksheet, 工作表2 As Worksheet
    Set 工作表1 = ThisWorkbook.Worksheets("工作表1")
    Set 工作表2 = ThisWorkbook.Worksheets("工作表2")
    
    ' 分别计算两个表A列的最大值
    Dim 表1最大值 As Long, 表2最大值 As Long, 下一个编号 As Long
    表1最大值 = WorksheetFunction.Max(工作表1.Range("A:A"))
    表2最大值 = WorksheetFunction.Max(工作表2.Range("A:A"))
    
    ' 取两个表的最大值加1得到新编号
    下一个编号 = IIf(表1最大值 > 表2最大值, 表1最大值, 表2最大值) + 1
    
    ' 写入工作表1A列最后一行空单元格
    Dim 目标行号 As Long
    目标行号 = 工作表1.Cells(工作表1.Rows.Count, 1).End(xlUp).Row + 1
    工作表1.Cells(目标行号, 1).Value = 下一个编号
End Sub

代码调整说明 #

• 新增工作表对象显式绑定逻辑，不会因运行代码时切换到其他工作表导致取值错误
• 新增工作表2A列最大值的计算逻辑，确保生成的编号大于两个表中所有已存在的数值
• 移除原代码中定义后未使用的冗余变量，避免编译警告
• 所有单元格操作均绑定对应工作表，逻辑稳定性更高

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