求助如何用宏的办法批量把excel页脚修改为指定内容和指定格式：
答案:1 悬赏:30 手机版
解决时间 2021-03-02 22:23
- 提问者网友：别再叽里呱啦
- 2021-03-02 17:48
求助如何用宏的办法批量把excel页脚修改为指定内容和指定格式：
最佳答案
- 五星知识达人网友：话散在刀尖上
- 2021-03-02 18:28
Sub test()
Dim st
For Each st In Split("A,B", ",")
Sheets(st).Select
With ActiveSheet.PageSetup
.LeftFooter = Range("J1")
.LeftFooter = "&""Arial,常规""&10AA"
End With
Next
End Sub追问A变成AA了，B没有变成BB
.LeftFooter = "&""Arial,常规""&10AA"这一句的&10AA是强制赋值，不是变量赋值追答不好意思书写有些失误
Sub test()
Dim st
For Each st In Split("A,B", ",")
Sheets(st).Select
ActiveSheet.PageSetup.LeftFooter = "&""Arial,常规""&10" & Range("J1")
Next
End Sub
其实代码很简单的
Dim st
For Each st In Split("A,B", ",")
Sheets(st).Select
With ActiveSheet.PageSetup
.LeftFooter = Range("J1")
.LeftFooter = "&""Arial,常规""&10AA"
End With
Next
End Sub追问A变成AA了，B没有变成BB
.LeftFooter = "&""Arial,常规""&10AA"这一句的&10AA是强制赋值，不是变量赋值追答不好意思书写有些失误
Sub test()
Dim st
For Each st In Split("A,B", ",")
Sheets(st).Select
ActiveSheet.PageSetup.LeftFooter = "&""Arial,常规""&10" & Range("J1")
Next
End Sub
其实代码很简单的
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯