VBA按JP列分组重置计数生成JT序列号的代码调试求助

现有代码核心问题 #

• 未声明关键变量：代码中使用的JobPlan、counter、jtCounter均未提前声明，未声明变量默认初始值为0，直接导致计数逻辑失效
• 循环逻辑冗余错误：嵌套双层行遍历的设计完全多余，单次遍历即可完成需求，现有逻辑会出现行重复处理、计数混乱的问题
• 无计数器重置逻辑：没有在检测到新JP值时重置计数的规则，不符合序列号生成要求
• 数组越界风险：对比相邻单元格值时，遍历到最后一行会访问不存在的下一行单元格，触发运行错误
• 字符串拼接符使用不规范：VBA中字符串拼接推荐使用&，使用+可能会把数值类内容误判为加法运算，导致输出异常

修正后代码 #

Sub GenerateJTSerial()
    Dim w1 As Workbook
    Dim s1 As Worksheet
    Dim row1 As Integer
    Dim jtCounter As Integer
    Dim lastJP As String
    
    Set w1 = ThisWorkbook
    Set s1 = w1.Sheets("Job Plan Sort")
    
    ' 初始化计数和上一个JP值
    jtCounter = 0
    lastJP = ""
    
    ' 遍历指定行范围，可根据需要修改起止行号
    For row1 = 9 To 16
        ' 检测到新的JP值时重置计数器
        If s1.Cells(row1, 2).Value <> lastJP Then
            jtCounter = 1
            lastJP = s1.Cells(row1, 2).Value
        Else
            ' 相同JP值计数器递增
            jtCounter = jtCounter + 1
        End If
        ' 写入JT序列号到第3列，需要改输出列可修改此处列号
        s1.Cells(row1, 3).Value = "JT" & CStr(jtCounter)
    Next row1
End Sub

使用说明 #

• 若需要调整处理的行范围，修改For row1 = 9 To 16中的起止行号即可
• 若需要修改JT序列号的输出列，调整s1.Cells(row1, 3)中的列号参数即可

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