Excel VBA多关键字数据排序

最新推荐文章于 2022-08-08 22:46:25 发布
最新推荐文章于 2022-08-08 22:46:25 发布
阅读量4.1k 收藏 30
点赞数 2
分类专栏： Excel VBA实例
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/qq389445046/article/details/104433052
版权

关注微信公众号：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, Header:
最低0.47元/天 解锁文章
snail一路向前
关注
  • 2
    点赞
  • 踩
  • 30
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
vba excel排序_Excel VBA单击“形状以对列进行排序”
culiao2169的博客
08-15 541
vba excel排序 Excel VBA单击“形状以对列进行排序” (Excel VBA Click Shape to Sort Column)People are lazy! Shocking, I know, but who wants to click twice in Excel, if you can do the same thing by only clicking once? ...
VBA七种排序算法
Eternal_Whispers的博客
10-19 1817
VBA排序算法
VBA多列(多字段)冒泡排序
weixin_44809243的博客
09-27 485
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 自动排序_给VBA字典键值排序，并提取需要的数据
weixin_39638048的博客
12-11 2372
未知的领域很广、风景很美，不要蜷缩在一小块自认为天堂的世界里。待到暮年时安于自欺欺人，要努力提高自己，学习是一件很辛苦的事。要有一颗充满生机的心，把握现在，这才是进取。机会总在等待中出现，越是有意义的事情，困难会越多。愿力决定始终，智慧决定成败。寻找心灵的平静；不管遇到什么，都是风景。怀善心，做善事。看淡纷争，看轻得失。茶，满也好，少也好，不要计较；浓也好，淡也好，其中自有值得品的味道。把浮躁的心...
VBA(14)排序Sort
热门推荐
q14091355的博客
08-08 1万+
VBA(14)排序Sort属性参数说明、自定义序列添加
VBA排序
weixin_33979203的博客
08-13 1043
2019独角兽企业重金招聘Python工程师标准>>> ...
ExcelVBA:Excel VBA项目
04-06
这个“Excel VBA项目”着重于使用VBA来处理数据排序，特别是升序和降序排列。 在Excel中，VBA提供了强大的工具来操作和处理数据。在描述中提到的宏，是一种用VBA编写的子程序，可以被用户快速调用来执行特定任务。...
完全手册Excel_VBA典型实例大全.docx
12-24
本资源是一个详细的Excel VBA实践指南，涵盖了宏、VBE、程序控制流程、Range对象操作等多个方面的知识点。下面我们将逐一详细介绍每一章节的内容： 第1章 宏的应用技巧 宏是VBA程序的一部分，可以完成枯燥的、频繁...
根据excel中关键字，匹配word中段落并高亮显示
02-17
excel宏脚本，根据excel中当前激活工作表指定列的关键字，匹配word文档中的段落，高亮显示，并排序复制到剪贴板
VBA中几种常用的排序方法
04-13
VBA各种常规使用的排序方法详细,原代码
VBA排序的十种算法
08-08
vba 排序排序 算法，和好用的。可以直接用的。
Excel VBA开发技术大全pdf
06-09
《Excel VBA开发技术大全》是一本全面介绍Excel VBA编程技术的书籍，旨在帮助读者掌握使用VBA（Visual Basic for Applications）进行Excel自动化和扩展功能的方法。VBA是Microsoft Office套件中的一种内置编程语言，...
Excel-VBA宏编程实例源代码-模拟快速排序.zip
12-14
通过VBA，你可以自定义Excel的功能，使其更符合你的工作需求，而快速排序则能在较短的时间内完成数据排序，对于数据分析和报告制作等任务尤为实用。通过学习和实践这个实例，你可以加深对这两种技术的理解，并在实际...
数组排序——VBA工作簿排序
Yogurt_cry的博客
10-19 2028
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 2554
主要算法有： 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
VBA 排序算法
weixin_42578747的博客
05-13 1665
Sub 冒泡排序() Dim arr, temp, x, y, t, k t = Timer arr = Range("a1:a10") For x = 1 To UBound(arr) - 1 For y = x + 1 To UBound(arr) '只和当前数字下面的数进行比较 If arr(x, 1) > ar...
他山之石——使用VBA演示排序算法-Part1（冒泡排序法和选择排序法）
预见未来to50的专栏
06-24 1817
程序=算法+数据结构软件=程序+文档我的理解，算法就是解决问题的方法和步骤，因为这世界充满了问题，所以可以说，算法无处不在。Option Explicit Sub 冒泡排序() Dim arr, temp, x, y, t, k t = Timer arr = Range("a1:a10") For x = 1 To UBound(arr) - 1 For y = x + 1 To...
用VBA实现对一维数组的排序(6)快速排序
VBAxiaoxueshen的博客
03-15 3639
快速排序是最常见的排序之一,其排序方式容易理解,排序代码也容易实现,排序速度快,很受欢迎. 首先在了解快速排序之前我们先了解一下冒泡排序,冒泡排序是相邻元素之间两两对比,按小数前大数后的规律调整两数的位置,经过多轮对比以后,即可完成排序.宏观来看,其实就是大数往后小数往前的一种排序方式,微观上冒泡排序是一个个的对比.快速排序是冒泡排序的改进版型,快速排序其实是将整个数据串以一个基准点分成大小两边,宏观上看也是大数往后小数往前,微观上,快排相对于冒泡一个个的对比而言是一种”批量操作”了. 现在我们来看看快
【Excel VBA】PageSetup对象-打印设置
qq389445046的博客
03-13 1万+
我们在工作中经常会打印东西，会手动设置一些参数，如横向或竖向打印等。了解下PageSetup属性，用简短的几行代码设置好打印参数，便可以设置一次，永久使用，方便高效。 PageSetup对象代表页面设置说明。包含所有页面设置的属性(左边距、底部边距、纸张大小等)。 下例将打印方向设置为横向，然后打印工作表。 With Worksheets("Sheet1") .PageSetup...
vba 查找excel关键字
最新发布
05-11
你可以使用 VBA 的 Find 方法来查找 Excel 中的关键字。以下是一个简单的示例： ```vb Dim keyword As String Dim searchRange As Range Dim foundCell As Range ' 设置要查找的关键字和查找范围 keyword = "apple" Set searchRange = ActiveSheet.Range("A1:B10") ' 查找关键字 Set foundCell = searchRange.Find(keyword) ' 如果找到了，将找到的单元格选中 If Not foundCell Is Nothing Then foundCell.Select End If ``` 在上面的示例中，我们首先定义了要查找的关键字和要查找的范围。然后，我们使用 `Find` 方法来查找关键字，并将找到的单元格存储在 `foundCell` 变量中。最后，如果找到了单元格，我们将其选中。 你可以根据需要进行修改，例如更改要查找的范围或将找到的单元格的值存储在变量中以供后续使用。

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值