发票号码展开

顾影嫣然

扁他。。。。。。

鹏程少爷

PQ (Excel2016及以上自带) 解法
发票号码展开.zip (98.76 KB, 下载次数: 13)

2021-10-9 15:10 上传

点击文件名下载附件
发票号码展开.zip

清溪流萍

展开论坛挺常见的，也好处理。前两天遇到一个合并的，比较麻烦
模拟数据，还有两种不同长度的号码。尾号位数还有2位和3位。
幸好你没模拟，同一个单元格里，不同前缀的发票号。
公式太复杂了，估计得分步骤完成，写个代码给你吧，代码审核，先发个图

苏干湖

Sub Main()
  Dim ar(), a, br(), b
  Dim x1 As Variant, x2 As Variant
  Dim s$, n&, i&
  Rem 指定数据源b3:b7
  ar = Range("b3:b7").Value
  ReDim br(1 To 1)
  For Each x1 In ar
  a = Split(x1, "/")
  s = Split(a(0), "-")(0)
  For Each x2 In a
    If InStr(x2, "-") = 0 Then
      n = n + 1
      ReDim Preserve br(1 To n)
      If Len(x2) = Len(s) Then
        br(n) = x2
      Else
        br(n) = Left(s, Len(s) - Len(x2)) & x2
      End If
    Else
      b = Split(x2, "-")
      If Len(b(0)) < Len(s) Then
      b(0) = Left(s, Len(s) - Len(b(0))) & b(0)
      End If
      If Len(b(1)) < Len(s) Then
      b(1) = Left(s, Len(s) - Len(b(1))) & b(1)
      End If
      For i = CLng(b(0)) To CLng(b(1))
      n = n + 1
      ReDim Preserve br(1 To n)
      br(n) = Format(i, String(Len(s), "0"))
      Next
    End If
    s = br(n)
  Next
  Next
  Rem 指定输出第一个单元格 H3
  With Range("h3").Resize(n)
  .NumberFormatLocal = "@"
  .Value = Application.Transpose(br)
  End With
End Sub

进击的小学生

周一到电脑上看

花海七里香

跟 大佬 们学习下。（ VBA)
发票码展开.rar (101.04 KB, 下载次数: 174)

2021-10-9 15:10 上传

点击文件名下载附件
发票码展开.rar

一阵风一道景

有误差 对 【 / 】 【 - 】混排
实际中可能录入人并不能保持一定的规则

香炉山人

鼓捣半天，还是不会
哈哈哈

陈志博

跟 大佬 们学习下。（ VBA)
发票码展开.rar (101.04 KB, 下载次数: 13)

2021-10-9 15:10 上传

点击文件名下载附件
发票码展开.rar

小牛排

有误差 对 【 / 】 【 - 】混排
实际中可能录入人并不能保持一定的规则