求助批量替换Excel页眉名称

din8881234 · 发表于 2023-5-24 15:12

所有表的页眉名称自动替换为“标题名称表”内A2考试名称，后面的文字需要保留。谢谢！

求助批量替换Excel页眉名称.zip (55.51 KB, 下载次数: 12)

半百 · 发表于 2023-5-24 20:20

这样？

din8881234 · 发表于 2023-5-25 07:24

本帖最后由 din8881234 于 2023-5-25 07:27 编辑

半百发表于 2023-5-24 20:20
这样？

老师，运行代码后页眉标题还是没有变化，请进一步处理，谢谢！

半百 · 发表于 2023-5-25 08:41

din8881234 发表于 2023-5-25 07:24
老师，运行代码后页眉标题还是没有变化，请进一步处理，谢谢！

我试了可以，如果不行的话，请手动随便设置一下第一个表的页眉试试。

szqhb · 发表于 2023-5-25 08:55

din8881234 发表于 2023-5-25 07:24
老师，运行代码后页眉标题还是没有变化，请进一步处理，谢谢！

可以啊。代码如下
Sub test()
s1 = Sheets("标题名称").[B2]
s2 = Sheets("标题名称").[B3]
For I = 2 To Sheets.Count
Application.PrintCommunication = False
With Sheets(I).PageSetup
s = .CenterHeader
.CenterHeader = Replace(s, s1, s2)
End With
Application.PrintCommunication = True
Next
End Sub

din8881234 · 发表于 2023-5-25 10:04

半百发表于 2023-5-25 08:41
我试了可以，如果不行的话，请手动随便设置一下第一个表的页眉试试。

可以了，非常感谢老师的帮助。谢谢！

山海风云轩 · 发表于 2023-5-25 10:23

学习学习

		自动登录	找回密码
密码			免费注册

[求助] 求助批量替换Excel页眉名称