在excel工作簿中對有多個工作表,，由于個人需要，對每個工作表中某一值的比較大小后,，然后進行排序,。

由于vba中字典對應(yīng)值比較難以排序，所以就分為兩步

第一步是提取工作表名和對應(yīng)字段寫到工作表中：

Sub getname()
Dim sheet As Worksheet
Dim k As Integer
k = 17
For Each sheet In Worksheets
Cells(k, 1) = sheet.Name
Cells(k, 2) = sheet.Cells(2, 3)
k = k + 1
Next
End Sub

得到后排序：

再利用第二個函數(shù)對排序后的工作表名進行相應(yīng)的移動：

Sub sortmysheet()
Dim sheet As Worksheet
Dim sheetname As String
Dim i As Integer
Set sheet = ActiveSheet
For i = 1 To 41
sheetname = sheet.Cells(i, 1)
Sheets(sheetname).Move after:=Sheets(i)
Next
sheet.Activate
End Sub

其中 sheet是新建了一個空白工作表,，然后一個41行