主题：[求助]给我一个思路就行，方向比努力更重要。

 你要做一个表，记录信息，表名叫做【标签】

【数量】【重量】【类别】 【编码】 【总数】

    100      10       A、B      bh        200

    200      60       A、B      bh        400

然后根据这个表，每一行的信息都能拿出来了，写成循环即可

Dim sl As Integer = 200
For i As Integer = 200 To 800-1 Step sl
    Dim bh1 As String = Format(i, "0000")
    Dim bh2 As String = Format(i+sl-1, "0000")
    msgbox(bh1 & "-" & bh2)
Next

Dim t As Table = Tables("表A")
Dim r As Row = t.rows(1) '第二行

Dim sl As Integer = r("数量")
Dim ks As Integer = 0
For i As Integer = 0 To r.Index-1
    ks = ks + t.Rows(i)("总数")
Next
msgbox(ks)
For i As Integer = ks To ks+r("总数")-1 Step sl
    Dim bh1 As String = Format(i, "0000")
    Dim bh2 As String = Format(i+sl-1, "0000")
    msgbox(bh1 & "-" & bh2)
Next