3、Sub 按A列数据修改表名称()On Error Resume Next '忽略错误继续执行VBA代码,避免出现错误消息Application.Calcu造婷用痃lation = xlCalculationManual '手动重算Dim i%For i = 1 To Sheets.CountSheets(i).Name = Cells(i, 1).TextNextOn Error GoTo 0 '恢复正常的错误提示Application.Calculation = xlCalculationAutomatic '自动重算End Sub
6、Sub 按A列数据修改表名称()On Error Resume Next '忽略错误继续执行VBA代码,避免出现错误消息Application.Calcu造婷用痃lation = xlCalculationManual '手动重算Dim i%For i = 1 To Sheets.CountSheets(i).Name = Cells(i, 1).TextNextOn Error GoTo 0 '恢复正常的错误提示Application.Calculation = xlCalculationAutomatic '自动重算End Sub
9、Sub Sort_Sheets()Dim sCount As Integer, I As Integer, 伊怕锱鳏R As IntegerReDim Na(0) As StringsCount = Sheets.CountFor I = 1 To sCountReDim Preserve Na(I) As StringNa(I) = Sheets(I).NameNextFor I = 1 To sCount - 1For R = I + 1 To sCountIf Na(R) < Na(I) ThenJH = Na(I)Na(I) = Na(R)Na(R) = JHEnd IfNextNextFor I = 1 To sCountSheets(Na(I)).Move After:=Sheets(I)NextEnd Sub
