• 手机版

    扫码体验手机版

  • 微信公众号

    扫码关注公众号

游客您好
Lv.2 注册会员
1030号会员,52活跃度,2018/11/14 加入学习
  • 4发帖
  • 3主题
  • 0关注
  • 0粉丝
这个人很懒,什么也没有留下。
优秀讲师更多
课堂交流更多

[已解决] 请帮忙写下代码

[复制链接]
141592653a 发表于 2021-2-18 20:37:47 | 显示全部楼层 |阅读模式 打印 上一主题 下一主题
根据各个序列号,写出对应的发票号码,要求:连续的发票号码用"-"连接,不连续的发票号码用","连接。 请大神帮帮忙吧 10914111556161.png 10914111556162.png

10914111556166.zip (9.99 KB, 下载次数: 0)
回复

使用道具 举报

精彩评论7

lzswzbs 发表于 2021-2-18 20:43:48 | 显示全部楼层
PowerQuery参考解法 10914111556163.png
10914111556167.zip (15.54 KB, 下载次数: 0)
回复

使用道具 举报

zp8493 发表于 2021-2-18 20:48: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"
复制代码
10914111556164.png
回复

使用道具 举报

VBS 发表于 2021-2-18 20:55:48 | 显示全部楼层
10914111556165.png
回复

使用道具 举报

米兰天地 发表于 2021-2-18 21:00:48 | 显示全部楼层
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:49 | 显示全部楼层
也试着做做
= 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:49 | 显示全部楼层
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 发表于 4 天前 | 显示全部楼层
高手云集 果断围观
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

全国统一客服电话
025-66044769

24x7小时免费咨询

  • 关注官方微信

  • QQ在线客服1

    在线联系

    QQ在线客服2

    在线联系
  • 南京优易多网络科技有限公司
  • 南京市六合区龙池街道雄州南路399
Powered by Discuz!X3.4 ©2015-2019 YouYiDuo Inc. 南京优易多网络科技有限公司 版权所有( 苏ICP备16017959号-5 )