如何用VBA代码列出所有工作表的名称到某列

2025-05-20 04:42:46

1、如图所示，当前工作簿有8个工作表。

3、在代码窗口中输入以下代码，然后按下F5运行，既可以在Sheet1工作表的A列列出所有工作表的名称Sub xyf() For i = 1 To Worksheets.Count Sheet1.Range("a" & i).Value = Worksheets(i).Name NextEnd Sub如下图所示：

声明：本网站引用、摘录或转载内容仅供网站访问者交流或参考，不代表本站立场，如存在版权或非法内容，请联系站长删除，联系邮箱：site.kefu@qq.com。