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

运行后截图

相关推荐
刘_sy7 小时前
使用EasyExcel和多线程实现高效数据导出
java·excel·easyexcel·批量导出excel
PowerBI学谦13 小时前
Copilot:Excel中的Python高级分析来了
python·excel·copilot
E-iceblue2 天前
Python 合并 Excel 单元格
python·excel·合并
sszdzq2 天前
Excel 合并列数据
excel
prince_zxill2 天前
Excel中不用复杂公式根据指定X列的数值N复制整行数据N行简单方法
excel
VBAMatrix3 天前
DeepSeek操作Excel,实现图表自动化生成
运维·自动化·excel·wps·deepseek
一醉千秋3 天前
excel中单元格字符串提取数字累加
excel
VB.Net3 天前
19.4.9 数据库方式操作Excel
数据库·c#·excel
真就死难3 天前
CSV格式和普通EXCEL格式文件的区别
linux·excel
朵朵zeng3 天前
Excel文件的读取
python·excel