1
2
3、Sub 按A列数据修改表名称()
On Error Resume Next '忽略错误继续执行VBA代码,避免出现错误消息
Application.Calculation = xlCalculationManual '手动重算
Dim i%
For i = 1 To Sheets.Count
Sheets(i).Name = Cells(i, 1).Text
Next
On Error GoTo 0 '恢复正常的错误提示
Application.Calculation = xlCalculationAutomatic '自动重算
End Sub
4
5
6、Sub 按A列数据修改表名称()
On Error Resume Next '忽略错误继续执行VBA代码,避免出现错误消息
Application.Calculation = xlCalculationManual '手动重算
Dim i%
For i = 1 To Sheets.Count
Sheets(i).Name = Cells(i, 1).Text
Next
On Error GoTo 0 '恢复正常的错误提示
Application.Calculation = xlCalculationAutomatic '自动重算
End Sub
7
8
9、Sub Sort_Sheets()
Dim sCount As Integer, I As Integer, R As Integer
ReDim Na(0) As String
sCount = Sheets.Count
For I = 1 To sCount
ReDim Preserve Na(I) As String
Na(I) = Sheets(I).Name
Next
For I = 1 To sCount - 1
For R = I + 1 To sCount
If Na(R) < Na(I) Then
JH = Na(I)
Na(I) = Na(R)
Na(R) = JH
End If
Next
Next
For I = 1 To sCount
Sheets(Na(I)).Move After:=Sheets(I)
Next
End Sub
