顾影嫣然 发表于 2021-12-14 23:25:07

扁他。。。。。。

鹏程少爷 发表于 2021-12-22 14:34:33

PQ (Excel2016及以上自带) 解法

清溪流萍 发表于 2021-12-26 01:09:39

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

苏干湖 发表于 2021-12-26 13:22:08

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

进击的小学生 发表于 2021-12-31 17:08:34

周一到电脑上看

花海七里香 发表于 2021-12-31 18:05:27

跟 大佬 们学习下。（ VBA)

一阵风一道景 发表于 2021-12-31 23:42:55

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

香炉山人 发表于 2022-1-2 21:56:13


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

陈志博 发表于 2022-1-6 18:56:20

跟 大佬 们学习下。（ VBA)

小牛排 发表于 2022-1-11 00:53:01

有误差 对 【 / 】 【 - 】混排
实际中可能录入人并不能保持一定的规则
页: 1 2 [3] 4
查看完整版本: 发票号码展开