按照编号排序

liumahao · 发表于 2018-7-23 12:36

需要排序左边的数据，按照ID分组对degree数据进行简单的从小到大升序排序。欲实现图如右边，保留ID和年份信息跟随排序。如果可以，再对排序后的数据从0-8赋值。谢谢大大了

待处理.zip (111.23 KB, 下载次数: 3)

wdx223 · 发表于 2018-7-23 12:54

let
Source = Excel.CurrentWorkbook(){[Name="表1"]}[Content],
#"Changed Type" = Table.TransformColumnTypes(Source,{{"id", Int64.Type}, {"year", Int64.Type}, {"degrees", type number}}),
Custom1 = Table.Combine(Table.Group(#"Changed Type","id",{"n",each Table.AddIndexColumn(Table.Sort(_,"degrees"),"赋值",0)})[n])
in
Custom1

复制代码

microyip · 发表于 2018-7-23 13:08

手工排序一下、填写0~8下拉就完了，需要代码就录制一下宏就好了

1204989233 · 发表于 2018-7-23 13:21

希望可以帮到你宏的话容错率比较低不改格式还好些，建议使用第二种，不嫌麻烦的话

鄂龙蒙 · 发表于 2018-7-23 14:43

1204989233 发表于 2018-7-23 13:21
希望可以帮到你宏的话容错率比较低不改格式还好些，建议使用第二种，不嫌麻烦的话

For i = 1 To [c1048576].End(xlUp).Row
      If Cells(i, 1) = Cells(i + 1, 1) Then
         Cells(i + 1, 4) = "=D" & i & "+ 1"
      Else
         Cells(i + 1, 4) = "0"
      End If
Next
请教：代码中的【=D】什么意思，能解释一下么？谢谢

liumahao · 发表于 2018-7-23 17:45

1204989233 发表于 2018-7-23 13:21
希望可以帮到你宏的话容错率比较低不改格式还好些，建议使用第二种，不嫌麻烦的话

多谢多谢，十分感谢

liumahao · 发表于 2018-7-23 19:14

1204989233 发表于 2018-7-23 13:21
希望可以帮到你宏的话容错率比较低不改格式还好些，建议使用第二种，不嫌麻烦的话

你好,如果在排序时数据出现0,排序后的赋值想把出现0的都赋值为0,从不为0的第一个数赋值为1,这样如何实现呢

1204989233 · 发表于 2018-7-25 09:29

鄂龙蒙发表于 2018-7-23 14:43
For i = 1 To [c1048576].End(xlUp).Row
If Cells(i, 1) = Cells(i + 1, 1) Then
C ...

这个是VBA写函数公式的写法就是让VBA往单元格里敲函数公式你可以自己简单网上查下 VBA写函数公式的写法就行了

1204989233 · 发表于 2018-7-25 09:45

看看行不行

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

[求助] 按照编号排序

评分

评分

评分