Excel VBA多关键字数据排序

最新推荐文章于 2025-03-23 00:56:13 发布
最新推荐文章于 2025-03-23 00:56:13 发布
阅读量4.8k 收藏 30
点赞数 2
CC 4.0 BY-SA版权
分类专栏： Excel VBA实例
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.youkuaiyun.com/qq389445046/article/details/104433052
本文介绍了如何使用Excel VBA进行多关键字数据排序。当需要对超过3个关键字进行排序时，可以通过多次执行Range对象的Sort方法或使用Worksheet对象的Sort方法。示例代码演示了对'总成绩'、'基础知识'、'教育学'和'心理学'成绩降序排列的过程，展示了两种不同的实现方式。

摘要生成于 C知道 ，由 DeepSeek-R1 满血版支持， 前往体验 >

关注微信公众号：VBA168
每天更新Excel VBA经典代码，祝你工作和学习更轻松！

使用Range对象的Sort方法对区域进行排序时，同时最多只能指定3个关键字，当需要按照超过3个关键字对区域进行排序时，可以通过多次执行Sort方法实现。需要注意的是，在排序时应按照各关键字的倒叙顺序。例如，如果按照A→B→C→D的关键字顺序进行排序，则应按D→C→B→A的顺序执行Sort方法。

在这里插入图片描述
图1 带排序数据

如图1所示数据表中，需要按"总成绩"、“基础知识”、"教育学"和"心理学"的成绩降序排列，实例代码如下。

Sub SortByKeysA()
     With Range("A1")
         .Sort Key1:="心理学", order1:=xlDescending
最低0.47元/天 解锁文章

200万优质内容无限畅学
Excel VBA编程：实现排序功能
PixelInk的博客
09-27 2530
然后，我们设置了要进行排序的工作表和范围。在.Sort方法中，我们首先清除了已有的排序字段，然后使用.SortFields.Add方法添加了一个排序字段。我们设置了排序字段的键（即要排序的范围）、排序方法（xlSortOnValues表示按值排序）、排序顺序（xlAscending表示升序）。然后，我们使用.Sort对象的其他属性进行进一步的设置，例如是否包含标题行、是否区分大小写、排序方向等。完成编写代码后，我们可以通过按下F5键或从"开发工具"选项卡中的"宏"菜单中选择要运行的宏来运行排序程序。
VBA多列(多字段)冒泡排序
weixin_44809243的博客
09-27 680
VBA多列冒泡排序 // An highlighted block Sub t() ' maopaoSort Sheets("FACList"), Array(2, 4, 3) maopaoSort Sheets("OBDList"), Array(3, 5, 4) End Sub Sub maopaoSort(sh As Worksheet, sortSZ) Dim lastRow As Long, lastCol As Long Dim targetRng As
VBA(14)排序Sort
热门推荐
q14091355的博客
08-08 1万+
VBA(14)排序Sort属性参数说明、自定义序列添加
一个VBA 支持多列（可大于4列）排序的函数
RosickyNewBee的专栏
02-19 4057
 **************************************************************==============================================================- Name:SortSheet- Author:Chen- Last Change: 09-1-19 by Chen
VBA实现Excel数据排序功能
hotkoko的博客
07-09 2373
本节会介绍使用VBA如何实现Excel工作表中数据的排序功能。
vba 自动排序_给VBA字典键值排序，并提取需要的数据
weixin_39638048的博客
12-11 2602
未知的领域很广、风景很美，不要蜷缩在一小块自认为天堂的世界里。待到暮年时安于自欺欺人，要努力提高自己，学习是一件很辛苦的事。要有一颗充满生机的心，把握现在，这才是进取。机会总在等待中出现，越是有意义的事情，困难会越多。愿力决定始终，智慧决定成败。寻找心灵的平静；不管遇到什么，都是风景。怀善心，做善事。看淡纷争，看轻得失。茶，满也好，少也好，不要计较；浓也好，淡也好，其中自有值得品的味道。把浮躁的心...
Excel VBA数据排序
qq389445046的博客
02-20 8003
在如图1所示数据列表中，需要按总成绩从高到低进行排序，示例代码如下。 Sub SortDemo() Range("A1").Sort key1:="总成绩", order1:=xlDescending, _ Header:=xlYes End Sub 运行SortDemo过程，排序结果如图2所示。 ​ 图1 待排序数据列表 图2 按总成绩降序排序结果 Range对象的...
Excel 2010 VBA 入门 043 按自定义序列进行排序
复行数十步
04-14 2756
示例： 如图所示，该表为某医院医务人员一览表。现在希望能够将该表数据以C列（科室）按照“外妇科l手术室l内儿科l西医科l中医科l耳鼻喉科I放射科l检验科l超室|口腔科l针灸科I西药房l中药房l收费室J疾控科l合管办|后勤科”的依次顺序进行排序，如何利用VBA实 现？ 序号 姓名 科室 级别 身份 职称 受聘专业 参工时间 工作年限 入院时间 入院年限 职务 1 张1张 后勤科 中级 干部 主治医师..
ExcelVBA:Excel VBA项目
04-06
这个“Excel VBA项目”着重于使用VBA来处理数据排序，特别是升序和降序排列。 在Excel中，VBA提供了强大的工具来操作和处理数据。在描述中提到的宏，是一种用VBA编写的子程序，可以被用户快速调用来执行特定任务。...
Excel VBA自定义序列排序
qq389445046的博客
02-22 6839
图1 待排序数据集 在图1中所示的数据集中，如果希望按单元格区域E2:E6所列序列进行排序，需要先使用AddCustomList方法为应用程序添加自定义序列，示例代码如下。 Sub SortByLists() Dim avntList As Variant, lngNum As Long avntList = Range("E2:E6") Application.A...
Excel VBA宏编程：排序、查询及条件格式化教程
- **基本排序**：VBA可以实现对Excel工作表中的数据按照单列或多列进行升序或降序排序。 - **高级排序选项**：可以指定排序的顺序（字母、数字、日期）、区分大小写、自定义排序列表（如按照特定的优先级排序）等。 ...
VBA中几种常用的排序方法
04-13
VBA各种常规使用的排序方法详细,原代码
VBA排序
weixin_33979203的博客
08-13 1110
2019独角兽企业重金招聘Python工程师标准>>> ...
VBA语言的排序
最新发布
2501_91195866的博客
03-23 732
在某些情况下，我们可能需要根据特定的条件进行排序，可以创建一个用户自定义的排序功能，让用户指定排序的列和顺序。```vba' 获取用户输入sortColumn = InputBox("请输入排序的列字母（如A、B等）：")sortOrder = InputBox("请输入排序顺序（升序输入1，降序输入2）：")' 根据用户输入的列和顺序执行排序End Sub```VBA语言提供了灵活且强大的排序功能，使得在Excel中处理数据变得更加高效。通过合理使用和Range.Sort。
VBA七种排序算法
Eternal_Whispers的博客
10-19 2531
VBA排序算法
VBA中数组的排序
m0_74737305的博客
10-15 2547
使用冒泡排序算法对一个整数数组进行升序排序。冒泡排序的基本思想是比较数组中相邻的元素，并交换它们，直到整个数组变得有序。
数组排序——VBA工作簿排序
Yogurt_cry的博客
10-19 2164
Sub OrderBy() Dim SheetCount As Long SheetCount = ThisWorkbook.Worksheets.Count - 1 ReDim SheetNameArray(SheetCount) Dim Index As Long Dim Names As String For Index = 0 To She...
VBA排序算法
chenpy303的博客
07-22 2730
主要算法有： 1、（冒泡排序）Bubble sort 2、（选择排序）Selection sort 3、（插入排序）Insertion sort 4、（快速排序）Quick sort 5、（合并排序）Merge sort 6、（堆排序）Heap sort 7、（组合排序）Comb Sort 8、（希尔排序）Shell Sort 9、（基数排序）Radix Sort 10、S
Excel·VBA按指定顺序排序函数
hhhhh_51的博客
01-07 3232
与《Excel·VBA数组冒泡排序函数》不同，不是按照数值大小的升序/降序对数组进行排序，而是按照指定数组的顺序，对另一个数组进行排序。可使用开头匹配模式，字符串完全相同或开头相同时确定序号
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值