发票号码展开

伊利西亚

Power Query 简称PQ

乱世心经

我知道，就是里面具体哪个功能是分组依据，还是拆分列

王磊杰

可以啦！谢谢！

张青健

我流大佬的VBA学的真快，还会PQ，哇塞，真牛

谭睿

嗯,不错,继续保持这种简便的写法....录入人方便了.现在知道数据不好弄了.,,要不把当时录入的人又叫来处理你要的数据吧.

王海燕

扁他。。。。。。

用户吕小金

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

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

益伟

嗯,不错,继续保持这种简便的写法....录入人方便了.现在知道数据不好弄了.,,要不把当时录入的人又叫来处理你要的数据吧.