如何关闭表格还能接着上一次的数据执行

class11class

请教下各位大神,如何修改代码呢?

class11class

Dim n As Integer
Sub 电信装箱单3()
      n = [a1]
    '--------------箱号变化------
    Dim arr(299, 0), i, d
    d = Format(Date, "yyyymmdd")
    s = Cells(1, 28 + n).Address(1, 0)
    s = LCase(Split(s, "$")(0))
    For i = 0 To 3
        arr(i, 0) = d & s & Format(i + 1, "00")
    Next
    n = n + 1
    Debug.Print n
    [a1] = n
   
    [b3].Resize(2) = arr
    MsgBox "箱号已变"
    ActiveWorkbook.Save
   
End Sub
解决了,自己解决了

zjzyj

是不是这个意思？

class11class

zjzyj 发表于 2023-6-7 22:40
是不是这个意思？

对,就是这个意思,很棒的思路