连续2个以上的数字号码，只取首尾两个号码、中间用“-”连接，其他的用“、”连接

大个子蘑菇

困扰我很久的问题了，求高手指点一下。要是能解决部分问题，也一样感激不尽。
连续3个或3个以上的数字号码，只取首尾两个号码、中间用“-”连接，其他的用“、”连接

zyhqzn

excel2016powerquery所做

我走我流

zyhqzn 发表于 2019-1-21 15:24
excel2016powerquery所做

老师把代码写出来吧，我正在学习PQ中，学个思路

大个子蘑菇

zyhqzn 发表于 2019-1-21 15:24
excel2016powerquery所做

多谢大佬，我回去下个2016看看，现在的是2013的，打开没公式

zyhqzn

我走我流 发表于 2019-1-21 15:29
老师把代码写出来吧，我正在学习PQ中，学个思路

1. 源 = Excel.CurrentWorkbook(){[Name="表1"]}[Content],
   
2.     更改的类型 = Table.TransformColumnTypes(源,{{"部门", type text}, {"发票号码", Int64.Type}}),
   
3.     排序的行 = Table.Sort(更改的类型,{{"发票号码", Order.Ascending}}),
   
4.     分组的行 = Table.Group(排序的行, {"部门"}, {{"计数", each if List.Count(_[发票号码])>=3 then Text.From(List.Min(_[发票号码]))&"-"&Text.From(List.Max(_[发票号码])) else if List.Count(_[发票号码])=2 then Text.From(List.Min(_[发票号码]))&"、"&Text.From(List.Max(_[发票号码])) else Text.From(_[发票号码]{0})  }},0),
   
5.     分组的行1 = Table.Group(分组的行, {"部门"}, {{"发票号码", each Text.Combine([计数],"、")}})
   

复制代码

zyhqzn

源 = Excel.CurrentWorkbook(){[Name="表1"]}[Content],
    更改的类型 = Table.TransformColumnTypes(源,{{"部门", type text}, {"发票号码", Int64.Type}}),
    排序的行 = Table.Sort(更改的类型,{{"发票号码", Order.Ascending}}),
    分组的行 = Table.Group(排序的行, {"部门"}, {{"计数", each if List.Count(_[发票号码])>=3 then Text.From(List.Min(_[发票号码]))&"-"&Text.From(List.Max(_[发票号码])) else if List.Count(_[发票号码])=2 then Text.From(List.Min(_[发票号码]))&"、"&Text.From(List.Max(_[发票号码])) else Text.From(_[发票号码]{0})  }},0),
    分组的行1 = Table.Group(分组的行, {"部门"}, {{"发票号码", each Text.Combine([计数],"、")}})

zyhqzn

代码等待审核！

ggmmlol

提供一个笨办法，但低版本如Excel2003也可以用：

加一个辅助列，再加两个很常用的自定义函数：1、正则替换函数：RegReplace，2、文本联结函数TextJoin。

其中，TextJoin与Office365中内置的同名函数功能完全一致！

excel求问.rar (14.7 KB, 下载次数: 23)

2019-1-21 17:44 上传

点击文件名下载附件

micch

筛选出需要的发票号，即使去掉连续号码中间号也能做到，但是最后要合并就需要新函数了

micch

1. =IF((A3:A11=E3)*((A2:A10<>E3)+(A4:A12<>E3)),B3:B11*(1-2*(A2:A10=E3)*(A1:A9=E3)),"")

复制代码

模拟数据太简陋了，因为涉及合并数据在一个单元格，如果数据量大不如去代码求助。这个公式只是就模拟数据而言得到需要合并的值，还需要textjoin用顿号合并，再套一个substitute吧 "、-" 替换为"-",没新函数就不继续写了，主要是这个公式估计对真实数据不一定正确