求助：将路线分解成区间，最好在一个工作表里面完成，谢谢！

maguangyong · 发表于 2018-3-2 08:39

mikezhan · 发表于 2018-3-2 09:38

提示: 作者被禁止或删除内容自动屏蔽

zengyidin · 发表于 2018-3-2 09:58

本帖最后由 zengyidin 于 2018-3-2 10:18 编辑

供参考
F2

=INDEX(A:A,LOOKUP(ROW(A1),MMULT(N(ROW($1:$26)>COLUMN(A:Z)),LEN(A$2:A$27)-LEN(SUBSTITUTE(A$2:A$27,"-",)))+1,ROW($2:$27)))

复制代码

G2

=TRIM(MID(SUBSTITUTE(F2,"-",REPT(" ",99),COUNTIF(F$2:F2,F2)+1),IFERROR(IF((F2=F1)*(LEN(F2)-LEN(SUBSTITUTE(F2,"-",))>1),FIND(RIGHT(G1,LEN(G1)-FIND("-",G1)),F2),1),1),99))

复制代码

hcm19522 · 发表于 2018-3-2 13:53

(輔助)B2:B28=LEN(A1)-LEN(SUBSTITUTE(A1,"-",))+N(B1)

F2下拉=LOOKUP(1,0/(ROW(A1)>B$2:B$28),A$2:A$28)

H2:H12=TRIM(MID(SUBSTITUTE(SUBSTITUTE("-"&F2,"-",REPT(" ",99),COUNTIF(F$2:F2,F2)),"-",REPT(" ",99),COUNTIF(F$2:F2,F2)+1),99,99))

maguangyong · 发表于 2018-3-2 14:26

十分感谢！

sdc3211772 · 发表于 2018-3-2 14:30

Sub ddd()
Dim ar, i%, arr(), n%, rng As Range
For Each rng In Range("a2", Cells(Rows.Count, 1).End(xlUp))
ar = Split(rng, "-")
For i = 0 To UBound(ar) - 1
      n = n + 1
      ReDim Preserve arr(1 To 2, 1 To n)
      arr(1, n) = rng
      arr(2, n) = ar(i) & "-" & ar(i + 1)
Next
Next
[d2].Resize(n, 2) = Application.Transpose(arr)
End Sub

		自动登录	找回密码
密码			免费注册

[求助] 求助：将路线分解成区间，最好在一个工作表里面完成，谢谢！

评分

mikezhan mikezhan 当前离线性别保密 UID 736941 阅读权限 0 注册时间 2009-3-7 在线时间小时最后登录 1970-1-1 积分 975 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2018-3-2 09:38 \| 显示全部楼层 [广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★使用手册★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报