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

最新推荐文章于 2022-07-01 22:33:22 发布

置顶 deqingguo

最新推荐文章于 2022-07-01 22:33:22 发布

阅读量2.7w

点赞数 4

分类专栏：其他文章标签： excel 工作 integer string vb 编程

本文链接：https://blog.csdn.net/deqingguo/article/details/6933452

版权

其他专栏收录该内容

1 篇文章 0 订阅

订阅专栏

使用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

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