VBA实现Excel数据排序功能

前言

本节会介绍使用VBA如何实现Excel工作表中数据的排序功能。 本节会通过下表数据内容为例进行实操:


1. Sort 单列排序

语法:Sort key1,Order1
说明:
Key1 :表示需要按照哪列进行排序
Order1 :用来指定是升序xlAscending,还是降序xlDescending
Header:表示是否首行为表头,当等于是xlYes时,则不会对表头行参与到排序中,若为否xlNo,则也会参与排序

示例:

在sheet1中存放着学生的成绩单,先需要将该表数据按照语文成绩进行降序排序,完整的代码如些:

c 复制代码
Sub Sort()
    
    ' 声明工作表变量
    Dim ws As Worksheet
    ' 声明范围数据变量
    Dim Rng As Range
    
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    ' 设置数据范围
    Set Rng = ws.Range("A1:D10")
    
    ' 设置通过语文成绩进行升序排序
    Rng.Sort Key1:="语文", Order1:=xlDescending, Header:=xlYes
    
    
End Sub

运行后截图

相关推荐
Lo-Y-eH1 小时前
Openpyxl:Python操作Excel的利器
python·excel
Channing Lewis1 天前
excel如何只保留前几行
excel
wtsolutions1 天前
Excel to JSON API by WTSolution Documentation
json·excel·api·wtsolutions
星沙丘秋2 天前
Kettle导入Excel文件进数据库时,数值发生错误的一种原因
excel
Tomorrow'sThinker2 天前
✍️ Python 批量设置 Word 文档多级字体样式(标题/正文/名称/小节)
python·自动化·word·excel
大虫小呓2 天前
50个Python处理Excel示例代码,覆盖95%日常使用场景-全网最全
python·excel
禁默3 天前
Linux Vim 编辑器详解:从入门到进阶(含图示+插件推荐)
linux·vim·excel
Tomorrow'sThinker3 天前
[特殊字符] Python 批量生成词云:读取词频 Excel + 自定义背景 + Excel to.png 流程解析
python·excel
UrbanJazzerati3 天前
Excel 使用中的“坑”:拆分与合并列的陷阱及解决方案
excel
KeThink4 天前
国民经济行业分类 GB/T 4754—2017 (PDF和exce版本)
pdf·excel