Excel中有100个工作表，但是我要分别在这100个工作表中的A1输入编号001到100，请问大神有没有简便方法？

Question

如题所述

Answer 1

用VBA代码可以很方便做到

按快捷键Alt+F11打开VBE编辑器，将如下代码粘贴到右侧编辑框内，最后按F5运行即可

Sub ShtNo()

        Dim sht As Worksheet

        Dim k&

        For Each sht In Worksheets

                k = k + 1

                sht.Range("a1") = k

        Next

End Sub