一个EXCEL表中有多个工作表，我想按其中一列的值对所有工作表中的值进行排序。

发布网友发布时间：2022-04-29 12:15

共3个回答

热心网友时间：2023-10-06 01:02

如果只有几个表，工作量不大，那就手工启动单个表的排序就行了。如果是表哥的数量较多，且过一段时间后，就需要诉如新的内容并重新排序，工作量较大，则建议采用VBA编程来进行自动化排序，我给你做个代码，拷贝到VBA下，启动宏命令，运行以下即可，代码如下：
Sub PaiXu()

Dim SheetNumber As Double

For SheetNumber = 1 To 8 '如果有50个子表，就把8改成50即可
Sheets(SheetNumber).Select
Columns("A:A").Select
'ActiveWorkbook.Worksheets(SheetNumber).Sort.SortFields.Clear
ActiveWorkbook.Worksheets(SheetNumber).Sort.SortFields.Add Key:=Range("A1"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets(SheetNumber).Sort
.SetRange Range("A2:F50") '修改该行中"A2：F50"的数值可改变排序范围
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Next

End Sub
使用以上代码，请先备份。以防意外损失。

热心网友时间：2023-10-06 01:02

如果只是去掉第一个数字，用excel里的分列，将第一个数字分出来，然后删掉就可以了。
如果第一个数字是缺失了，即原来可能是0-9，现在都是0，那就不可能变回来了

热心网友时间：2023-10-06 01:03

最简单的是贴图出来，看看，说的云里雾里的，头都想大了