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

运行后截图

相关推荐
程序猿熊跃晖5 小时前
Excel 数据导入与 SQL 生成:基于 Hutool 和 Apache POI 的优雅实践
sql·apache·excel
IT技术分享社区5 小时前
解锁Excel超能力:方方格子插件介绍
excel·电脑技巧
CodeCraft Studio1 天前
Excel处理控件Spire.XLS系列教程:C# 合并、或取消合并 Excel 单元格
前端·c#·excel
云心雨禅1 天前
Vim操作指令全解析
编辑器·vim·excel
安分小尧1 天前
[特殊字符] 使用 Handsontable 构建一个支持 Excel 公式计算的动态表格
前端·javascript·react.js·typescript·excel
hello_simon2 天前
在线小白工具,PPT转PDF支持多种热门工具,支持批量转换,操作简单,高效适合各种需求
pdf·html·powerpoint·excel·pdf转html·excel转pdf格式
Tttian6222 天前
Python办公自动化(3)对Excel的操作
开发语言·python·excel
有趣的我2 天前
vim的操作
编辑器·vim·excel
woniu_maggie2 天前
SAP EXCEL DOI 详解
开发语言·后端·excel
Dickson2 天前
如何批量拆分Excel工作表或按行拆分Excel表格 - Excel拆分器使用方法
excel·excel拆分器·拆分excel·拆分excel工作表·按行拆分excel