excel文件中的多个工作表按名称排序
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
分类：其他
excel文件中的多个工作表按名称排序
2011-11-03 20:08985人阅读评论(0)收藏举报excel工作integer string vb编程
使用excel时，有时会碰到一个表格里面很多的sheet，比如sheet11，sheet23。。。
当这些sheet是无序的时候，查找一个sheet很疼，所有想按sheet来排序下，但是excel本身又不提供按sheet排序的方法，所有就上网找了下解决方法，发现得通过excel的VB编程模式，随便右击一个sheet名称，选择“查看代码”，在弹出的界面中加入以下代码：
[vb]
01.S u b S o r t_S h e e t s()
02.D i m s C o u n t A s I n t e g e r,I A s I n t e g e r,R A s I n t e g e r
03.R e D i m N a(0)A s S t r i n g
04.s C o u n t=S h e e t s.C o u n t
05.
06.F o r I=1T o s C o u n t
07.R e D i m P r e s e r v e N a(I)A s S t r i n g
08.N a(I)=S h e e t s(I).N a m e
09.N e x t
10.
11.
12.F o r I=1T o s C o u n t-1
13.F o r R=I+1T o s C o u n t
14.I f N a(R) 15.J H=N a(I) 16.N a(I)=N a(R) 17.N a(R)=J H 18.E n d I f 19.N e x t 20.N e x t 21. 22. 23.F o r I=1T o s C o u n t 24.S h e e t s(N a(I)).M o v e A f t e r:=S h e e t s(I) 25.N e x t 26.E n d S u b 然后执行代码，问题解决~~ 无法加载插件。