excel 分组并获取组的最大值[已关闭]

lokaqttq 于 2023-02-05 发布在其他

关注(0)|答案(1)|浏览(141)

- 已关闭。**此问题需要debugging details。当前不接受答案。

编辑问题以包含desired behavior, a specific problem or error, and the shortest code necessary to reproduce the problem。这将有助于其他人回答问题。
昨天关门了。
此帖子已于昨天编辑并提交审核，未能重新打开帖子：
原始关闭原因未解决
Improve this question
我在excel中有一组数据，其中有三列，巧克力品牌、巧克力名称和巧克力成本，我必须根据品牌对所有巧克力进行分组，并给出该特定品牌的任何巧克力的最大成本。
需要一个vba代码或任何这样做的方法。我是非常新的vba编码，所以详细的帮助将不胜感激。
巧克力品牌巧克力类型价格预计O/P Lindt白巧克力26 45 Lindt黑巧克力45 45 Lindt特级黑巧克力21 45好时之吻12 42好时里斯42 42好时欢乐牧场主40 42吉百利牛奶37 38吉百利植物油2 38吉百利可可脂38 38
Example Data

excel

来源：https://stackoverflow.com/questions/75340971/group-and-get-the-max-value-of-the-group

1条答案

按热度按时间

wbgh16ku1#

Sub Macro2()

ActiveWorkbook.Worksheets("Sheet1").AutoFilter.Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Sheet1").AutoFilter.Sort.SortFields.Add2 Key:= _
    Range("A1:A7"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
    xlSortNormal
With ActiveWorkbook.Worksheets("Sheet1").AutoFilter.Sort
    .Header = xlYes
    .MatchCase = False
    .Orientation = xlTopToBottom
    .SortMethod = xlPinYin
    .Apply
End With
'ActiveWorkbook.Worksheets("Sheet1").AutoFilter.Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Sheet1").AutoFilter.Sort.SortFields.Add2 Key:= _
    Range("C1:C7"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
    xlSortNormal
With ActiveWorkbook.Worksheets("Sheet1").AutoFilter.Sort
    .Header = xlYes
    .MatchCase = False
    .Orientation = xlTopToBottom
    .SortMethod = xlPinYin
    .Apply
End With
End Sub

赞(0）回复(0）举报 2023-02-05

我来回答

excel 分组并获取组的最大值[已关闭]

1条答案

相关问题

热门标签

最新问答