vba连续编号处理单据连号

nnsea

Sub 单据编码()
Union([D4], [J4], [K5], [K8], [C7], [J9]) = ""
With Range("j1")
    .Value = "NO." & Format(Now, "BZJyyyymmdd") & Format(Right(.Value, 2) + 1, "0000")
  End With
End Sub