sheet1中批量添加表格名字

sheet1中有一个很长的表，可能打印出来是n页，我要将每一页添加上表格的名字和最下面的署名和日期，比如表名是《xxx调查结果》，最下面（调查人：xxx 日期：xxx）请问如批量去操作

我不想再添加在页眉和页脚，只想在表格中插入

最上面的表名可以用：页面设置-工作表-顶端标题行实现，最下面的估计还真得用页脚。或者表长度一样的话，你选择所有的Sheet，然后再一个表中插入“最下面”，其他表也一样插入。

sub 命名() dim a as worksheet for each a in worksheets n = n + 1 a.name = "sheet" & n next end sub 将这个代码复制到vba代码窗口，然后按执行按钮，就可以以批量改为默认的sheet1、sheet2……。

如何批量在每个工作表的第一列插入本工作表的名字 比如sheet1的内容是姓名 我写了一个，原来的表中第2列应有值，以此为准 Sub test() m = Sheets

我写了一个，原来的表中第2列应有值，以此为准 Sub test() m = Sheets.Count For j = 1 To m Sheets(j).Activate With ActiveSheet r = .Cells(.Rows.Count, 2).End(xlUp).Row For i = 1 To r .Range("a" & i).Value = ActiveSheet.Name Next End With Next End Sub 你试试，希望对你有帮助。