Question

在excel里写了一段代码我这种写法只能针对sheet1这个名字可以运行，如果sheet1改为其它名字就不能运行。

代码如下，请高手指点感激不尽
if Worksheets("Sheet1").Cells(10, 5).Value = "0" then
Worksheets("Sheet1").Cells(10, 4).Value = ""
Worksheets("Sheet1").Cells(10, 3).Value = ""
Worksheets("Sheet1").Cells(10, 2).Value = ""
Worksheets("Sheet1").Cells(10, 1).Value = ""
end if

Answer 1

X = Sheets.Count '可以用这一行语句获取工作簿中包含的工作表数目
For I = 1 To X
Sheets(I).Range("A1") = Sheets(I).Name '可以用工作表的顺序号引用每个工作表
Next I
'希望对你有帮助，Worksheets允许简写为Sheets

Answer 2

在当前工作表执行。
If ActiveSheet.Cells(10, 5).Value = "0" Then
ActiveSheet.Cells(10, 4).Value = ""
ActiveSheet.Cells(10, 3).Value = ""
ActiveSheet.Cells(10, 2).Value = ""
ActiveSheet.Cells(10, 1).Value = ""
End If

Answer 3

用 ActiveSheets或是Worksheets(1)这样的就可以了。