一个excel工作薄和工作表中，工作表的排列次序可以改变吗

来源：蜘蛛抓取(WebSpider) 时间：2018-03-18 03:19 标签： excel工作薄和工作表
查看: 4052|回复: 6
按指定顺序排列同一工作簿中多个工作表的顺序
阅读权限10
在线时间 小时
将多个工作表按照逻辑顺序排好，详见压缩包的描述，非常感谢。
19:26 上传
点击文件名下载附件
5.95 KB, 下载次数: 53
阅读权限100
在线时间 小时
没有直接的操作，需要用插件了。
阅读权限10
在线时间 小时
没有直接的操作，需要用插件了。
有什么小插件可以推荐吗？非常感谢
阅读权限70
在线时间 小时
Sub try()
& & With Sheets(&要调好顺序的样子&)
& & .Activate
& & arr = Application.Transpose(.[a1:a12])
& & End With
& & For i = 1 To UBound(arr)
& && &&&Worksheets(arr(i)).Move after:=ActiveSheet
& & Next
End Sub复制代码
阅读权限10
在线时间 小时
假如没有 Sheets(&要调好顺序的样子&) a1:a12的辅助列呢？怎么写
阅读权限70
在线时间 小时
Sub 按表名自动排序()
& & n = Sheets.Count
& & ReDim arr(1 To n)
& & For Each sh In ThisWorkbook.Sheets
& && &&&i = i + 1
& && &&&arr(i) = sh.Name
& & Next
& & For i = 1 To UBound(arr) - 1
& && &&&For j = i + 1 To UBound(arr)
& && && && &If arr(i) & arr(j) Then
& && && && && & temp = arr(i)
& && && && && & arr(i) = arr(j)
& && && && && & arr(j) = temp
& && && && &End If
& && &&&Next
& & Next
& & For i = 1 To UBound(arr)
& && &&&Worksheets(arr(i)).Move after:=ActiveSheet
& & Next
End Sub复制代码
猜谜语——奥尼尔和科比
阅读权限10
在线时间 小时
牛！厉害！非常感谢你，帮我解决了大问题了。
最新热点 /1
京东ExcelHome畅销系列图书大联展，满100元-30元现金，莫失良机！
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师将工作簿中工作表按顺序排列_百度知道
将工作簿中工作表按顺序排列
Sub paixu()
if Worksheets.Count=1 Then End
For j = 1 To Worksheets.Count - 1
For i = 1 To Worksheets.Count-1
If Sheets(i).Name & Sheets(i + 1).Name Then
Sheets(i + 1).Move Before:=Sheets(i)
我有更好的答案
Name&Else&Before:=Sheets(i)&&&&&&&&End&nbsp:=Sheets(i)&&Then&nbsp：Sub&&To&&Sheets(i);If&=&1&1).Name&Then&Sheets(i&+&&Worksheets.Count&nbsp.Name&&i%Dim&j%If&Wpaixu()Dim&&nbsp.Count&=&&&&IsNumeric(Sheets(i&For&i&&&&Worksheets.Count&&If&1&Then&EndFor&j&&&-&1&Next&&&nbsp请更改代码如下;+&1);&&If&-&1&&Sheets(i&&nbsp.Name)&Then&&&&&&&&&&&&If&--Sheets(i).Name&&&--Sheets(i&+&&+&1);&Sheets(i&&&&IsNumeric(Sheets(i);&&+&1);&1).Move&Before.Name)&And&&=&1&&&To&&nbsp.Move&nbsp
采纳率：79%
为您推荐：
其他类似问题
工作簿的相关知识
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。excel表格中工作表顺序排列方法_百度知道
excel表格中工作表顺序排列方法
如上图所示，由于名字很多，怎么按A到Z的顺序排列，谢谢了
我有更好的答案
别人的方法，转告你：按下ALT+F11打开VBA编辑器，插入一个模块，将下列代码粘贴进去使用即可。'以下为需要复制的代码：Sub SheetSort()'工作表按名称排序Dim i As LongDim Sh As Worksheet'关闭屏幕刷新以提高速度Application.ScreenUpdating = False'添加一张临时表提取所有表名并排序ThisWorkbook.Worksheets.Add after:=Worksheets(Worksheets.Count)Set Sh = ActiveSheetFor i = 1 To Worksheets.Count - 1
Sh.Cells(i, 1) = Worksheets(i).NameNextSh.Columns(1).Sort Key1:=Range(&A1&), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod:= _
xlPinYin, DataOption1:=xlSortNormal
'按名称排序后移动表For i = 1 To Worksheets.Count - 1
Worksheets(Sh.Cells(i, 1).Text).Move after:=Worksheets(Worksheets.Count)Next'禁止提示删除临时表再恢复提示Application.DisplayAlerts = FalseSh.DeleteApplication.DisplayAlerts = True'恢复屏幕刷新Application.ScreenUpdating = TrueEnd Sub
采纳率：62%
联通卡可以打电话，不可以接电话
为您推荐：
其他类似问题
您可能关注的内容
excel表格的相关知识
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。Excel里的工作表标签如何排列顺序_百度知道
Excel里的工作表标签如何排列顺序
我有更好的答案
请跟 一起操作:
打开excel工作表--工具--选项--自定义序列标签--将下列字母串复制粘贴到输入序列(e)窗口中--单击右边的添加按钮--确定。
现在在excel中实现用鼠标拖拽字母使其顺序递增，犹如拖数字一样了。
采纳率：66%
为您推荐：
其他类似问题
工作表标签的相关知识
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。

我要回帖

更多关于 excel工作薄和工作表 的文章

 

随机推荐