vba如何实现excel工作表按数据大小排列

Question

工作薄中每张工作表格式都一样，其中都有一各单元各存有计算结果的数据。为了直观，能不能用vba实现各表按数据大小从左往右排列。如下例子

表1的数据数据是3，表2的是2，表3的是1，表4的是4。要求每次打开工作薄时，4张工作表从左到右的排列是 表4、表1、表2、表3。谢谢!

Answer 1

假设你的数据均存放在A1单元格。

ALT+F11——双击thisworkbook——粘贴如下代码

Private Sub Workbook_Open()
Dim i%, j%
For i = 1 To Sheets.Count - 1
    For j = 1 To Sheets.Count - 1
        If Sheets(j).[a1] < Sheets(j + 1).[a1] Then
           Sheets(j).Move after:=Sheets(j + 1)
        End If
    Next j
Next i
Sheets(1).Select
End Sub

Answer 2

Private Sub Workbook_Open()

End Sub
把代码部分放到这里，每次打开自动排序