excel VBA按字母表顺序对工作表进行排序
发布时间：2023-08-23 10:19:24
标签：代码,字母表,工作,排序,Excel函数
如果工作簿内有大量以字母开头的工作表，要将这些工作表按照字母表的顺序进行排序，可以用下面的VBA代码来实现。按Alt+F11，打开VBA编辑器，单击菜单“插入→模块”，在代码窗口中粘贴下列代码并执行。
Sub 按字母表排序工作表()
Dim i As Integer, j As Integer, n As Integer
On Error Resume Next
n = Sheets.Count
If n = 1 Then End
For i = 1 To n – 1
For j = i + 1 To n
If UCase(Sheets(j).Name) < UCase(Sheets(i).Name) Then
Sheets(j).Move Before:=Sheets(i)
End If
Next j
Next i
End Sub
上述代码是按照字母表升序来对工作表进行排序的，如果要按降序排序，将代码中的小于号改为大于号即可。
0
投稿猜你喜欢
如何将全民K歌app绑定qq子账号?全民k歌不仅可以用手机唱歌还可以和自己的好友进行pk互动。想要将全民K歌app绑定qq子账号，具体该如何- hsl调色是一种将RGB色彩模型中的点在圆柱坐标系中的表示法，HSL即色相【Hue】、饱和度【Saturation】 、亮度【 Lightn
- 下面，为大家总结了7个被忽略的Windows 7功能，具体如下：1、Sticky Notes(即时贴)如果您是靠办公桌和电脑显示器上的黄色便
- 在网上看到网友问到word/wps文字如何设置行高，当然这是针对word/wps文字中插入的表格而言，小编为大家分享一个简单的方法。WPS设
- 我们在使用Win10系统时在默认情况下系统会自动安装更新，但是更新完系统后遇到了显卡驱动报错的情况，该怎么办呢？很多人对此都没有任何办法，不
- Word怎么快速生成树状图？有非常多的用户都喜欢使用Word来编辑一些文档，而我们有时候在编辑的过程中难免需要去生成树状图来进行展示，不过对
- win7打印提示无法保存打印机设置(错误0x000006d9)怎么解决?很多朋友都不是很清楚，其实方法很简单的，下面小编就为大家详细介绍一下
- 在Word 2007和2010中创建的“书法字帖”文件会默认是保护状态，取消保护方法在Word 2007和2010中创建的“书法字帖”文件会
- 我们的电脑在升级了win10操作系统之后，有一部分游戏玩家就遇到了win10系统玩梦幻西游总是掉线的情况。对于这种问题小编觉得一部分原因可能
- 插入图片时，有时只需要在幻灯片中显示图片的某个部分，而这部分之外的背景部分需要删除。要获得这种效果，一般是使用Photoshop等专业软件来
- 工作中有许多的琐事，所以在系统中会同时运转多款软件，这样自己的计算机桌面就被占得满满的。议决点击“最小化”按钮来降低窗口，操作会显得比拟烦锁
- 在Word文档中插入图片是我们经常遇到的问题之一，很多朋友发现插入图片后，文档中图片不能设置透明度，其实也是有方法来调整图片透明度的，今天，
- 有些用户将U盘插入windows7系统电脑后没有提示修复，正常情况下都会显示的，为什么windows7系统插入u盘后没有提示修复，带着这个疑
- 今天跟大家分享一下在Word文档中输入全角和半角字符的区别。全角和半角可在输入法状态栏中点击相应的图标进行切换，圆月图标是全角状态，月牙图标
- win11系统怎么连接校园网？很多学生都在收到win11的推送通知后就选择了升级win11系统进行体验，但是却发现没办法连接校园网wifi了
- Win11关机速度慢怎么解决？win11系统虽然推出了正式版，但是还有不少的问题，比如有的用户在更新升级后，觉得自己的关机速度变得更慢了，每
- 做电商的小伙伴们，会经常需要对当前的数据与历史数据进行对比，得出差异，分析趋势，或者从各个方面、各个渠道细化剖析数据。本篇讲的便是以原始的订
- 在安装一个全新的windows系统时，需要在系统内安装多个驱动设备才能支持系统的正常运行，但是安装驱动难免遇到安装错误的时候，这时候就要卸载
- 宽带连接对于我们来说是很重要的，如果没有它我们就上不了网。可是很多用户就遇到了电脑提示错误711无法加载远程访问连接管理器服务，那么当你遇到
- 欢迎观看 Photoshop 教程，小编带大家了解何时使用选区。在本教程中，小编将介绍什么是选区，并给大家一些关于选区常用情形的简单示例。选
