Question

vba中更改sheet名

我写的程序将sheet更名了，不在是sheet1,sheet2，比如更名为 abcd,efah，如果是这样的名称，我想要把两个工作表的a替换成5，vba程序能实现吗，要怎么写，若是循环，怎么能选择表，求程序，谢谢
谢谢，不过请问下怎么知道Application.WorksheetFunction.Substitute，对于我新手来说，怎么能获得这些函数并且知道怎么使用

Answer 1

1、Sheets("abcd").Name = "5bcd"

2、Application 属性
则该属性返回一个 Application 对象，该对象代表 Microsoft Excel 应用程序。

示例：
本示例显示一个有关创建 myObject 的应用程序的信息。

Set myObject = ActiveWorkbook
If myObject.Application.Value = "Microsoft Excel" Then
MsgBox "This is an Excel Application object."
Else
MsgBox "This is not an Excel Application object."
End If

3、WorksheetFunction 属性
返回 WorksheetFunction 对象。（什么是WorksheetFunction 对象：该对象上级对象为Application 。用作可从 Visual Basic 中调用的 Microsoft Excel 工作表函数的容器。

使用 WorksheetFunction 属性可返回 WorksheetFunction 对象。）

WorksheetFunction 属性示例
本示例对单元格区域 A1:A10 使用 Min 工作表函数，并显示结果。

Set myRange = Worksheets("Sheet1").Range("A1:C10")
answer = Application.WorksheetFunction.Min(myRange)
MsgBox answer

你的这些问题并非一句两句就可以说的清楚，好方法就是查阅和学习vba的帮助中的相关章节和实例文件。

Answer 2

Sub adsf()
For i = 1 To 2
Sheets(i).Name = Application.WorksheetFunction.Substitute(Sheets(i).Name, "a", "5")

Next
End Sub

Answer 3

Sub aa()
Dim ws As Worksheet

For i = 1 To Worksheets.Count
Set ws = Worksheets(i)
ws.Name = i
Next i

End Sub