表格中连号的号段如何单独拆分

qianyinhuafa

A列是连号的号段，如何将A列连号号段单独拆分开，如B列所示，请大侠指导。

凌空一羽

1. Sub lkyy()
   
2. ar = Range([a1], Cells(Rows.Count, 1).End(3))
   
3. ReDim br(1 To 100000, 1 To 1)
   
4. For i = 1 To UBound(ar)
   
5.     a = Split(ar(i, 1), "~")(0)
   
6.     b = Split(ar(i, 1), "~")(1)
   
7.     For j = a To b
   
8.         n = n + 1
   
9.         br(n, 1) = "'" & j
   
10.     Next
    
11. Next
    
12. Range("b1").Resize(n, 1) = br
    
13. End Sub
    

复制代码

scyss

加个辅助列，公式看附件

活在理想的世界

截取后几位做FOR循环算了。

LSL1128xgw

固定位数还好做了的

qianyinhuafa

scyss 发表于 2018-2-6 17:30
加个辅助列，公式看附件

感谢高手，问题已解决

qianyinhuafa

凌空一羽 发表于 2018-2-6 17:11

感谢高手，代码太复杂

LSL1128xgw

=LEFT(INDEX(A:A,SMALL(IF(RIGHT(A$1:A$3,15)-LEFT(A$1:A$3,15)+1>=COLUMN(A:BZ),ROW($1:$3)),ROW())),15)+RIGHT(SMALL(IF(RIGHT(A$1:A$3,15)-LEFT(A$1:A$3,15)+1>=COLUMN(A:BZ),ROW($1:$3)/1%+COLUMN(A:BZ)),ROW()),2)-1&"" 不用辅助列一个公式 三键数组

LSL1128xgw

=IFERROR(IFNA(--LEFT(LOOKUP(1,0/(ROW()=MMULT(N(COLUMN(A:C)<ROW($1:$4)),RIGHT(A$1:A$3,15)-LEFT(A$1:A$3,15))+ROW($1:$4)),A:A),15),INDIRECT("r[-1]c",)+1)&"","") 16版本 三键数组公式