有时候需要汇总
把这些工作表名都提取过来
表少手动 也行
咱们做为精英中的精英
喝茶总比摸鱼强
搞完喝杯茶也不错
******我是分割线******
这都是些批量性重复的操作
用VBA来解决最合适
操作步骤：
1、按<ALT+F11>组合键打开VBE
2、单击【插入】-【模块】
3、双击【模块1】
4、复制代码<CTRL+C>
5、粘贴代码<CTRL+V>
6、运行代码<F5>
或者按图①②操作运行
代码如下：
'提取工作表名称
Sub test002()
Dim Sh As Worksheet, nStr As String
Dim i As Long
Sheets("汇总").Cells.Clear '清空 防影响
i = 0 '定位起始位置 为0时 这行代码可以不写
For Each Sh In Worksheets
If Sh.Name <> "汇总" Then
i = i + 1 '计数 方便写入表中
Cells(i, 1) = Sh.Name '简写 注意父对象
End If
Next
End Sub