(有图)(有附件)如何根据例如"1-3"这样的数据 实现填充1.2.3

wrnmdd

如图所示
由于工作需要 我要把单元格A1里的“1-10”拆解成
B列里标绿色的1.2.3.4.5.6.7.8.9.10
同理"3-6"拆解成B列里标黄的的 3.4.5.6
B列原本是没有数据的 只有A列的两个单元格“A1和A11”有数据 为了达成B列所示的效果
如果需要可以适当的修改 A1和A11的格式 不局限附件表原来的格式。

每天一个个的手输简直要疯了 请大神分析一下 有什么公式或者是操作可以批量实现？
附件5.8.rar (5.54 KB, 下载次数: 30)

2019-5-8 16:53 上传

点击文件名下载附件

papshaw

你用的要是microsoft office，可以用power query来实现。用公式的话应该要用到数组公式吧！

micch

很难吗？ - 号左右的数字限于几位数？

mmlzh

=IF(A1="",INDIRECT("R[-1]C",)+1,LEFT(A1,FIND("-",A1)-1))

micch

1. =IF(A1="",INDIRECT("r[-1]c",)+1,LEFT(A1))

复制代码

有图有附件是对的，但是随便模拟并不能真实反映源数据规律。按模拟的写一个

wrnmdd

micch 发表于 2019-5-8 17:09
有图有附件是对的，但是随便模拟并不能真实反映源数据规律。按模拟的写一个

谢谢，不过如果只有单元格A1有数据 没A11时 这时候公式下拉到10之后 在下来会出现11.12.13.........N
  能不能公式下来到10之后自动停呢？ 例如1-3 下拉到3自动停 1-10下拉到10自动停 这样  因为有时候上下两个单元格 隔的行数有多的    没有行数隔的少的时候。

反正还是谢谢你了 好人一生平安。祝你平安。

鄂龙蒙

1. Sub 编号()
   
2.     [C1:C10000] = Empty
   
3.     Dim ar, br(), m, i
   
4.     ar = Range("A1").CurrentRegion
   
5.     m = 1
   
6.     ReDim Preserve br(1 To 3, 1 To m)
   
7.     br(1, m) = 1
   
8.     br(2, m) = ar(1, 2)
   
9.     For i = 1 To UBound(ar) - 1
   
10.         If ar(i, 2) + 1 <> ar(i + 1, 2) Then
    
11.             m = m + 1
    
12.             ReDim Preserve br(1 To 3, 1 To m)
    
13.             br(1, m) = i + 1
    
14.             br(2, m) = ar(i + 1, 2)
    
15.             br(3, m - 1) = ar(i, 2)
    
16.         End If
    
17.     Next
    
18.     br(3, m) = ar(UBound(ar), 2)
    
19.     For i = 1 To m
    
20.         Cells(br(1, i), 3) = br(2, i) & "--" & br(3, i)
    
21.     Next
    
22. End Sub

复制代码

象山海鲜

wrnmdd 发表于 2019-5-8 17:28
谢谢，不过如果只有单元格A1有数据 没A11时 这时候公式下拉到10之后 在下来会出现11.12.13.........N
   ...

1. =IF(A1="",IF(-IMAGINARY(LOOKUP("a",A$1:A1)&"i")>INDIRECT("r[-1]c",),INDIRECT("r[-1]c",)+1,""),--LEFT(A1))

复制代码

我走我流

楼上的大神，都用公式解答了，我也来用刚学的M函数Expression.Evaluate来做个

gxx75

=INDEX(ROW(INDIRECT(SUBSTITUTE(LOOKUP("座",$A$1:$A1),"-",":"))),ROW()-LOOKUP("座",$A$1:$A1,ROW($A$1:$A1))+1)