excel文件中的多个工作表按名称排序

您所在的位置：网站首页 › 表格中怎样按名称排序 › excel文件中的多个工作表按名称排序

excel文件中的多个工作表按名称排序

2024-06-30 17:58| 来源: 网络整理| 查看: 265

使用excel时，有时会碰到一个表格里面很多的sheet，比如sheet11，sheet23。。。

当这些sheet是无序的时候，查找一个sheet很疼，所有想按sheet来排序下，但是excel本身又不提供按sheet排序的方法，所有就上网找了下解决方法，发现得通过excel的VB编程模式，随便右击一个sheet名称，选择“查看代码”，在弹出的界面中加入以下代码：

Sub Sort_Sheets() Dim sCount As Integer, I As Integer, R As Integer ReDim Na(0) As String sCount = Sheets.Count For I = 1 To sCount ReDim Preserve Na(I) As String Na(I) = Sheets(I).Name Next For I = 1 To sCount - 1 For R = I + 1 To sCount If Na(R) < Na(I) Then JH = Na(I) Na(I) = Na(R) Na(R) = JH End If Next Next For I = 1 To sCount Sheets(Na(I)).Move After:=Sheets(I) Next End Sub

然后执行代码，问题解决~~

【本文地址】

excel文件中的多个工作表按名称排序

excel文件中的多个工作表按名称排序

今日新闻

推荐新闻