有奖：工作表排序

wayy

将工作表的顺序倒过来，即

原来的顺序是：sheet1、sheet2、sheet3、sheet4、sheet5、sheet6、sheet7、sheet8

排序后顺序为：sheet8、sheet7、sheet6、sheet5、sheet4、sheet3、sheet2、sheet1

请大家在代码测试成功后再上传。

版主和高手们就不要参与了啊，答了也没BB[em07]

自己费了半天劲才转过弯来[em04]

天空很空

我想想,兰版没教??

398也没教.

[em03]

suye1010

Sub move()
For i = 8 To 2 Step -1
      Sheets(1).Move After:=Sheets(i)
Next i
End Sub

[此贴子已经被作者于2008-2-21 14:43:35编辑过]

baiqghd

这个有难度

element

我不是高手，再次声明[em08]

一剑惊心

对VBA而言,我是白痴[em06]

wayy

QUOTE:

以下是引用suye1010在2008-2-21 14:42:00的发言：
Sub move()
For i = 8 To 2 Step -1
      Sheets(1).Move After:=Sheets(i)
Next i
End Sub

[em17]　更通用一点：

Sub move()
For I = Sheets.Count To 2 Step -1
  Sheets(1).move After:=Sheets(I)
Next I
End Sub

遥远的绿洲

看来要赶快学习VBA了

秦始皇

学习了

zjxia889

Sub SortAllSheets()
  '排序工作表
  Dim wb As Workbook
  Dim ws As Worksheet
  Dim rng As Range, i As Integer
  Dim cSheets As Integer
  Dim sSheets() As String
 
  Set wb = ActiveWorkbook
 
  '获取数组实际大小
  cSheets = wb.Sheets.Count
  ReDim sSheets(1 To cSheets)
 
  '用工作表名填充数组
  For i = 1 To cSheets
    sSheets(i) = wb.Sheets(i).Name
  Next
 
  '创建新的工作表并在其第一列放置名称
  Set ws = wb.Worksheets.Add
  For i = 1 To cSheets
    ws.Cells(i, 1).Value = sSheets(i)
  Next
 
  '对列排序
  ws.Columns(1).Sort Key1:=ws.Columns(1), Order1:=xlAscending
 
  '重新填充数组
  For i = 1 To cSheets
    sSheets(i) = ws.Cells(i, 1).Value
  Next
 
  '删除临时工作表
  Application.DisplayAlerts = False
  ws.Delete
  Application.DisplayAlerts = True
 
  '通过移动每个工作表到最后来重新排列工作表
  For i = 1 To cSheets
    wb.Sheets(sSheets(i)).Move after:=wb.Sheets(cSheets)
  Next
 
 End Sub