5个回答
展开全部
用EXCEL自身的功能就只能手动调整Excel工作表的位置,插入宏则可以实现
这里以excel中各工作表(sheet)按工作表名称的首字母排序为例:
Sub 工作表标签排序()
n = Sheets.Count
For i = 1 To n
Cells(i, Columns.Count).NumberFormatLocal = "@"
Cells(i, Columns.Count) = Sheets(i).Name
Next
Cells(1, Columns.Count).Resize(n).Sort Cells(1, Columns.Count)
R = Cells(1, Columns.Count).Resize(n)
Cells(1, Columns.Count).Resize(n) = ""
For i = 1 To n
Sheets(R(i, 1)).Move Sheets(1)
Next
End Sub
打开你要排序的工作表,然后按Alt +F11 ,在左侧点右键插入--模块,将上面的代码粘进去。然后F5运行,各sheet表就按字母进行排序了。
这里以excel中各工作表(sheet)按工作表名称的首字母排序为例:
Sub 工作表标签排序()
n = Sheets.Count
For i = 1 To n
Cells(i, Columns.Count).NumberFormatLocal = "@"
Cells(i, Columns.Count) = Sheets(i).Name
Next
Cells(1, Columns.Count).Resize(n).Sort Cells(1, Columns.Count)
R = Cells(1, Columns.Count).Resize(n)
Cells(1, Columns.Count).Resize(n) = ""
For i = 1 To n
Sheets(R(i, 1)).Move Sheets(1)
Next
End Sub
打开你要排序的工作表,然后按Alt +F11 ,在左侧点右键插入--模块,将上面的代码粘进去。然后F5运行,各sheet表就按字母进行排序了。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
你好,只能手动调整Excel工作表的位置
第一种方法是:用鼠标左键按住标签拉动到指定的位置松开。
第二种方法是:右键点击底下的标签——复制或移动工作表——选择位置。
希望以上回答能够帮到你还有什么不明白可以继续问我。
第一种方法是:用鼠标左键按住标签拉动到指定的位置松开。
第二种方法是:右键点击底下的标签——复制或移动工作表——选择位置。
希望以上回答能够帮到你还有什么不明白可以继续问我。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
借助第三方工具:如《慧办公》小工具就可以实现目的
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询