Question

怎么让一段vba运行到所有excelsheet中

Sub 工作表名输入()

Cells(1, 1) = ActiveSheet.Name

End Sub
以上代码怎么运行到所有sheet中

Answer 1

所有表名存放到每个表的A1中，代码如下：

Sub 工作表名输入()
    for each st in sheets
        st.Cells(1, 1) = st.Name
    next st
End Sub

所有表名存放到当前表的A列的代码如下：

Sub 工作表名输入()
    i=1
    for each st in sheets
        ActiveSheet.Cells(i, 1) = st.Name
        i=i+1
    next st
End Sub

Answer 2

这样可以的

试试

Sub 工作表名输入()
For Each sht In ActiveWorkbook.Sheets
    sht.Cells(1, 1) = sht.Name
Next
End Sub

Answer 3

Sub 工作表名输入()
For i = 1 To Sheets.Count
    Sheets(i).Select
    Cells(1, 1) = ActiveSheet.Name
Next
End Sub