还是不行啊，大哥们

Question

Sub Test()    Dim s1 As String
    Sheet1.Select
    Dim i As Integer    i = 1
    s1 = "sheet" + i
    
    Cells(1, 1) = s1  '或用sheets(s1).name
    
    Next i
    
End Sub就是无法获取表的名字啊。

Answer 1

其实就是在一个Excel文件里有n个sheet表，现在对每个表都有一个同样的操作，所以想用类似于
("sheet"+i).操作 来代替，该如何来写。其实似乎就是将("sheet"+i)转化为sheets对象，这样便可以使用一些函数。

Answer 2

Sub zh()Dim wk As WorksheetFor Each wk In Worksheets
Debug.Print wk.Name
NextEnd Sub

Answer 3

s1 = "sheet" + i
--------------------
把这句改为：
s1 = "sheet" & i

Answer 4

Sub Test()
    Dim s1 As String
    Sheet1.Select
    Dim i As Integer
    For i = 1 To ActiveWorkbook.Sheets.Count
        Cells(i, 1) = Sheets(i).Name
    Next
End Sub