怎么让EXCEL工作薄子表自动排序
答案:1 悬赏:80 手机版
解决时间 2021-03-20 01:08
- 提问者网友:ミ烙印ゝ
- 2021-03-19 14:09
怎么让EXCEL工作薄子表自动排序
最佳答案
- 五星知识达人网友:渊鱼
- 2021-03-19 14:22
用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表就按字母进行排序了。
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
推荐资讯