云发教育

标题: 请帮忙写下代码 [打印本页]

---

作者: 141592653a    时间: 2021-2-18 20:37
标题: 请帮忙写下代码
根据各个序列号，写出对应的发票号码，要求：连续的发票号码用"-"连接，不连续的发票号码用"，"连接。 请大神帮帮忙吧 (, 下载次数: 1)

上传

点击文件名下载附件 (, 下载次数: 0)

上传

点击文件名下载附件

(, 下载次数: 0)

上传

点击文件名下载附件

---

作者: lzswzbs    时间: 2021-2-18 20:43
PowerQuery参考解法 (, 下载次数: 0)

上传

点击文件名下载附件
(, 下载次数: 0)

上传

点击文件名下载附件

---

作者: zp8493    时间: 2021-2-18 20:48
我也来个纯属自娱自乐的

1. let
   
2. 
     Source = Table.FromRows(Json.Document(Binary.Decompress(Binary.FromText("i45WclTSUTIwMja1VIrVgfPMDFB4hsg8c3MUngWY5wTlQUxxhvAsDFB4hig8IzDPBcozRuGZoPCANsQCAA==", BinaryEncoding.Base64), Compression.Deflate)), let _t = ((type nullable text) meta [Serialized.Text = true]) in type table [SN = _t, INV = _t]),
   
3. 
     #"Grouped Rows" = Table.Group(Source,{"SN"},
   
4. 
     {{"All", each
   
5. 
       let
   
6. 
         lst = [INV],
   
7. 
         lst_num = List.Sort(List.Transform(lst, Number.From), Order.Ascending)
   
8. 
       in
   
9. 
         List.Accumulate(lst, {}, (s,c)=>if List.Contains(lst_num, Number.From(c)-1) then List.RemoveLastN(s,1) & {s{List.Count(s)-1}&{c}} else s&{{c}})
   
10. 
      }}),
    
11. 
      #"Expanded Each List" = Table.TransformColumns(#"Grouped Rows", {"All", each List.Transform(_, each if List.Count(_)>1 then Text.From(List.Min(_))&"-"&Text.From(List.Max(_)) else Text.From(_{0}))}),
    
12. 
      #"Extracted Values" = Table.TransformColumns(#"Expanded Each List", {"All", each Text.Combine(List.Transform(_, Text.From), ", "), type text})
    
13. 
    in
    
14. 
      #"Extracted Values"

复制代码

(, 下载次数: 0)

上传

点击文件名下载附件

---

作者: VBS    时间: 2021-2-18 20:55
(, 下载次数: 0)

上传

点击文件名下载附件

---

作者: 米兰天地    时间: 2021-2-18 21:00
let
  源 = Excel.CurrentWorkbook(){[Name="表_2"]}[Content],
  自定义1 =
  Table.Group(
    源,
    "序列号",
    {
      "发票号码",
      each
      List.Accumulate(
        [发票号码] & {""},
        { "", "", "" },
        (x,y)=>
          if
          x{1} = "" and x{2} = ""
          then
          { x{0}, y, y }
          else if
          Number.From( y ) - Number.From( x{2} ) = 1
          then
          { x{0}, x{1}, y }
          else
          {
            Text.Trim(
              x{0} & "," & x{1} &
              { "-" & x{2}, "" }{ Byte.From( x{1} = x{2} ) },
              ","
            ),
            y,
            y
          }
      ){0}
    }
  )
in
  自定义1

---

作者: 67198194    时间: 2021-2-18 21:06
也试着做做
= Table.Group(源, {"序列号"}, {{"发票号码", each
      [m=Table.AddIndexColumn(_,"序号",0),
     n=Table.AddColumn(m,"con",each try if Number.From([发票号码])-Number.From(m[发票号码]
      {[序号]-1})=1 then 0 else 1otherwise 1),
     o=Text.Combine(Table.Group(n,{"con"},{"合并",each Text.Combine([发票号码],"-")},0,(x,y)
       =>Number.From(y=x))[合并],",")
     ][o]}})

---

作者: 摩托车    时间: 2021-2-18 21:07
let
  源 = Excel.CurrentWorkbook(){[Name="表1"]}[Content],
  分组 = Table.Group(源, {"序列号"}, {{"发票号码", each
      [m=Table.AddIndexColumn(_,"序号",0),
     n=Table.AddColumn(m,"con",each try if Number.From([发票号码])-Number.From(m[发票号码]
      {[序号]-1})=1 then 0 else 1otherwise 1),
     o=Text.Combine(Table.Group(n,{"con"},{"合并",each
                  if List.Count([发票号码])>1
                  then List.First([发票号码])&"-"&List.Last([发票号码])
                  else [发票号码]{0}},
           0,(x,y)=>Number.From(y=x))[合并],",")
     ][o]}})
in
  分组

---

作者: bobby    时间: 2021-7-21 16:38
高手云集 果断围观

---

作者: 草莓妹    时间: 2021-8-4 06:36
前排顶，很好！

---

作者: longtianlei    时间: 2021-9-3 17:41
努力学习中

---

作者: 小芒果    时间: 2021-9-16 09:46
广告位，，坐下看看

---

作者: linda_981    时间: 2021-10-21 14:58
专业抢沙发的！哈哈

---

作者: 笑死人    时间: 2021-10-27 11:45
前排，哇咔咔

---

作者: ming312    时间: 2021-11-8 23:22
占位编辑

---

作者: xuhui2004    时间: 2021-11-10 16:34
前排顶，很好！

---

作者: joelau2004    时间: 2021-11-26 14:19
为毛老子总也抢不到沙发？！！

---

作者: 闲人    时间: 2021-12-4 07:16
占坑编辑ing

---

作者: alunn    时间: 2021-12-15 13:53
不错不错.,..我一直很喜欢

---

作者: 发现者    时间: 2022-2-16 18:51
路过的帮顶

---

作者: 运奇    时间: 2022-2-19 17:17
顶起出售广告位

---

作者: zhu8zhu    时间: 2022-2-22 12:19
顶起顶起顶起

---

作者: 牛屎仔    时间: 2022-3-13 22:32
看起来好像不错的样子

---

作者: 学友    时间: 2022-3-14 20:51
说的不错，学习了

---

作者: 草原    时间: 2022-3-19 16:47
我也顶起出售广告位

---

作者: chefar    时间: 2022-3-27 08:07
忙完了，来看看视频

---

作者: wrong_sl    时间: 2022-3-28 11:11
好帖必须得顶起

---

作者: zhwcft    时间: 2022-3-28 16:22
啥玩应呀

---

作者: 皮蛋妹妹    时间: 2022-3-31 12:17
嘘，低调。

---

作者: procar    时间: 2022-4-7 06:33
好，很好，非常好！

---

作者: 蕉爸爸    时间: 2022-4-9 07:01
向楼主学习

---

作者: BG7LHT    时间: 2022-4-12 17:18
纯粹路过，没任何兴趣，仅仅是看在老用户份上回复一下

---

作者: likk079    时间: 2022-4-15 10:56
顶起出售广告位

---

作者: 飞天小猪    时间: 2022-4-18 11:28
前排支持下

---

作者: ailinchen    时间: 2022-4-18 21:04
有空大家一起交流一下

---

作者: 超越改    时间: 2022-4-26 18:06
支持，赞一个

---

作者: tdgg6683    时间: 2022-5-3 06:06
站位支持

---

作者: tanyq8290    时间: 2022-5-16 20:40
有空大家一起交流一下

---

作者: 灵魂的梦境    时间: 2022-6-5 22:33
我也来支持一下，很喜欢这里老师

---

作者: 雕心    时间: 2022-6-12 12:23
元芳你怎么看？

---

作者: ROCKY    时间: 2022-6-16 22:48
努力~~各位。。。

---

作者: 车BB    时间: 2022-7-3 20:42
太棒了，感谢唐楼主精彩的分享

---

作者: yxg    时间: 2022-7-17 16:02
围观 围观 沙发在哪里！！！

---

作者: gege    时间: 2022-7-26 20:18
前排支持下了哦~

---

作者: cozo    时间: 2022-7-30 15:07
发发呆，回回帖，工作结束~

---

作者: hanny    时间: 2022-8-3 16:36
站位支持

---

作者: renoir    时间: 2022-8-29 09:31
为毛老子总也抢不到沙发？！！

---

作者: fwd    时间: 2022-9-2 11:28
越办越好，经常过来学习视频~~~~~~~~~

---

作者: zhenblisa    时间: 2022-9-12 22:59
纯粹路过，没任何兴趣，仅仅是看在老用户份上回复一下

---

作者: jinchang    时间: 2022-9-17 20:46
1v1飘过

---

作者: 采采    时间: 2022-9-30 15:59
这么强,支持楼主，佩服

---

作者: 乱熊    时间: 2022-10-4 08:15
回个帖子支持一下！

---

作者: 教授2    时间: 2022-10-18 12:57
感謝云发教育！！！

---

作者: veronica    时间: 2022-10-22 19:31
啊啊啊啊啊啊啊啊啊啊啊

---

作者: johnnyplay    时间: 2022-10-26 12:25
前排顶，很好！

---

作者: aerialwave    时间: 2022-10-27 18:55
1v1飘过

---

作者: 小彭    时间: 2022-10-30 23:50
我了个去，顶了

---

作者: 燃烧寂寞的烟丝    时间: 2022-10-31 13:45
这个视频很不错，推荐一下

---

作者: 林妹妹    时间: 2022-11-5 20:17
前排，哇咔咔

---

作者: 天山村夫    时间: 2022-11-14 18:46
努力学习中

---

作者: 中中    时间: 2022-12-3 09:49
介是神马？！！

---

作者: zycw    时间: 2022-12-4 19:06
支持，楼下的跟上哈~

---

作者: 忘记密码    时间: 2022-12-9 09:58
说的不错，学习了

---

作者: FI~鱼~SH    时间: 2022-12-15 11:02
楼下的接上

---

作者: 诗诺    时间: 2022-12-24 19:49
为毛老子总也抢不到沙发？！！

---

作者: 珠海小西    时间: 2022-12-24 19:53
前排支持下了哦~

---

作者: wzfwzf    时间: 2023-1-7 07:52
锄禾日当午，发帖真辛苦。谁知坛中餐，帖帖皆辛苦！

---

作者: 释迦牟尼    时间: 2023-1-15 06:45
不错 支持一个了

---

作者: wind    时间: 2023-1-19 12:52
楼主呀，，，您太有才了。。。

---

作者: etrader    时间: 2023-1-20 09:05
好，很好，非常好！

---

作者: Laken    时间: 2023-1-24 17:27
小白一个 顶一下

---

作者: 培记    时间: 2023-1-28 07:54
专业抢沙发的！哈哈

---

作者: MuscleMax    时间: 2023-1-30 08:04
路过 帮顶 嘿嘿

---

作者: wangaimin007    时间: 2023-2-7 15:45
加油站加油

---

作者: zgfzgf    时间: 2023-2-19 07:46
沙发？？？

---

作者: wahfen    时间: 2023-2-22 06:42
前排，哇咔咔

---

作者: 狗狗汪汪    时间: 2023-2-24 11:39
回个帖子支持一下！

---

作者: dg0013111    时间: 2023-2-26 09:07
站位支持

---

作者: fengyuan1978    时间: 2023-2-26 21:02
元芳你怎么看？

---

作者: 伟哥    时间: 2023-3-1 08:42
不错 支持一个了

---

作者: gdw7179    时间: 2023-3-3 16:16
这么强,支持楼主，佩服

---

作者: viewsonic    时间: 2023-3-5 19:08
不错不错.,..我一直很喜欢

---

作者: Nicky    时间: 2023-3-9 19:02
顶起顶起顶起

---

作者: 波仔    时间: 2023-3-16 11:46
支持一下，天天来这学习

---

作者: 老何    时间: 2023-3-20 09:43
秀起来~

---

作者: liqbjs    时间: 2023-3-24 18:06
OMG！介是啥东东！！！

---

作者: shao1234    时间: 2023-3-26 10:31
忙完了，来看看视频

---

作者: 1606    时间: 2023-4-23 12:55
没人回帖。。。我来个吧

---

作者: longge00000    时间: 2023-5-2 21:02
支持支持再支持

---

作者: mailke    时间: 2023-5-16 18:30
我也来顶一下..

---

作者: 赤豆糊    时间: 2023-6-3 09:42
呵呵，低调，低调！

---

作者: warmheart    时间: 2023-6-11 06:30
为了三千积分！

---

作者: laser    时间: 2023-6-15 17:45
我也顶起出售广告位

---

作者: 劲秋    时间: 2023-6-22 16:09
加油站加油

---

作者: e70f    时间: 2023-8-9 11:56
路过的帮顶

---

作者: 绿谷碧湖    时间: 2023-8-9 13:23
我只是路过，不发表意见

---

作者: 椰子郎    时间: 2023-8-22 13:29
努力,努力,再努力!!!!!!!!!!!

---

作者: dzzl    时间: 2023-9-23 11:16
我只是路过，不发表意见

---

作者: pipi    时间: 2023-10-12 22:55
大人，此事必有蹊跷！

---

作者: 朗月星空    时间: 2023-10-19 21:35
楼猪V5啊

---

作者: abs    时间: 2023-10-29 16:19
楼猪V5啊

---

欢迎光临 云发教育 (https://www.yunfa.vip/)

Powered by Discuz! X3.5