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

运行后截图

相关推荐
未来之窗软件服务8 小时前
万象EXCEL开发(十一)excel 结构化查询 ——东方仙盟金丹期
excel·仙盟创梦ide·东方仙盟·万象excel
未来之窗软件服务1 天前
万象EXCEL开发(十)excel 高级混合查询 ——东方仙盟金丹期
excel·仙盟创梦ide·东方仙盟·万象excel
njsgcs2 天前
excel-mcp-server 安装
excel·mcp
未来之窗软件服务2 天前
万象EXCEL开发(九)excel 高级混合查询 ——东方仙盟金丹期
大数据·excel·仙盟创梦ide·东方仙盟·万象excel
深耕AI应用2 天前
元表纪基于一个Excel表实现一键发货、打印面单
excel·表格一键发货·自动打印运单·自动打印面单·自动发货
专注VB编程开发20年2 天前
EXCEL VBA-从X行复制数据插入到Y_Z行
excel·复制数据·vba·插入数据·函数优化
小Tomkk2 天前
一个学校随机点名系统(代excel 自定义导入名字,+随机点名)
excel
未来之窗软件服务3 天前
万象EXCEL开发(十二)excel 结构化查询 ——东方仙盟金丹期
excel·仙盟创梦ide·东方仙盟·万象excel
专注VB编程开发20年5 天前
VB6.0找不到该引用word,excel“Microsoft Excel 16.0 Object Library”解决方法
word·excel·vba·vsto
林月明5 天前
【VBA】点击按钮,实现将Excel表A数据按格式填入表B
excel·vba