如何编写VBA代码生成连续性与绝缘性检测所需的递减数字序列？

你需要的序列规律为每组序列起始值逐组+1，序列长度逐组递减，最终生成1_5、25、3~5……的效果，同时左侧列写入每组对应的固定组号。原代码采用硬编码行偏移的方式容错率低、扩展性差，改用双层循环加动态行指针的逻辑实现，适配性更强：

Private Sub CommandButton1_Click()
    Dim groupNum As Integer ' 组号，对应左侧列固定值
    Dim seqNum As Integer ' 右侧序列值
    Dim writeRow As Integer ' 当前写入的行号
    ' 以下参数可根据你的表格实际结构自行修改
    Const FIRST_ROW As Integer = 1 ' 内容起始行，有表头可改为2
    Const MAX_VALUE As Integer = 5 ' 序列最大值，需要扩展到15直接改这个值即可
    Const LEFT_COL As Integer = 3 ' 左侧组号对应的列号
    Const RIGHT_COL As Integer = 4 ' 右侧序列对应的列号，和你原代码保持一致用第4列
    
    writeRow = FIRST_ROW
    ' 遍历所有组
    For groupNum = 1 To MAX_VALUE
        ' 生成当前组的右侧序列
        For seqNum = groupNum To MAX_VALUE
            Cells(writeRow, LEFT_COL).Value = groupNum
            Cells(writeRow, RIGHT_COL).Value = seqNum
            writeRow = writeRow + 1
        Next seqNum
    Next groupNum
End Sub

如果确实需要右侧序列为递减排列（即每组显示5_1、52……），只需将内层循环代码改为 For seqNum = MAX_VALUE To groupNum Step -1 即可。

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