如何用vba实现excel中工作表命名为第一表,第二表,第三表,第四表……第十九表

实际上你可以在一张活动工作表中某一列把所有工作表的名字都命好。然后利用VAB进行命名。代码如下：
Sub 按A列数据修改表名称()
On Error Resume Next '忽略错误继续执行VBA代码,避免出现错误消息
Application.Calculation = xlCalculationManual '手动重算
Dim i%
For i = 2 To Sheets.Count
Sheets(i).Name = Cells(i, 1).Text
Next
On Error GoTo 0 '恢复正常的错误提示
Application.Calculation = xlCalculationAutomatic '自动重算
End Sub

Sub test()
Dim i As Integer
Dim MyArray(1 To 19) As String

MyArray(1) = "第一表"
MyArray(2) = "第二表"
MyArray(3) = "第三表"
MyArray(4) = "第四表"
MyArray(5) = "第五表"
MyArray(6) = "第六表"
MyArray(7) = "第七表"
MyArray(8) = "第八表"
MyArray(9) = "第九表"
MyArray(10) = "第十表"
MyArray(11) = "第十一表"
MyArray(12) = "第十二表"
MyArray(13) = "第十三表"
MyArray(14) = "第十四表"
MyArray(15) = "第十五表"
MyArray(16) = "第十六表"
MyArray(17) = "第十七表"
MyArray(18) = "第十八表"
MyArray(19) = "第十九表"

For i = 1 To Sheets.Count
Sheets(i).Name = MyArray(i)
Next i
End Sub本回答被提问者采纳