sheet1中批量添加表格名字

答案:4 悬赏:70 手机版

解决时间 2021-01-28 04:15

提问者网友：書生途
2021-01-27 19:09

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

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

最佳答案

五星知识达人网友：廢物販賣機
2021-01-27 20:14

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

全部回答

1楼网友：野慌
2021-01-27 21:54

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

2楼网友：行路难
2021-01-27 21:08

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

3楼网友：愁杀梦里人
2021-01-27 20:56

我写了一个，原来的表中第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 你试试，希望对你有帮助。

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息