怎么让EXCEL工作薄子表自动排序

发布网友发布时间：2022-04-21 22:53

我来回答

共3个回答

热心网友时间：2023-01-25 11:37

工具/原料

电脑 excel

方法/步骤

1、打开一张序号打乱的表格。

3、点击A2单元格，输入“=ROW()-1“。

4、按下回车键，选中A2单元格，单元格右下角出现+，将鼠标下拉，序号排列完成。

5、将老王和老李，两行调一下顺序，序号仍然是排列好的，使用此公式，序号即可自动排好。

热心网友时间：2023-01-25 12:55

用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表就按字母进行排序了。

热心网友时间：2023-01-25 14:29

让EXCEL工作薄子表自动排序的具体步骤如下：

我们需要准备的材料分别是：电脑、Excel表格。

1、首先我们打开需要编辑的Excel表格。

2、然后我们按下键盘上的“Ctrl+F11”。

3、然后我们在弹出来的窗口点击单元格输入：

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，之后按下F5刷新就可以了。