[已解决]VBA如何进行每个sheet的页脚的查找替换

gdsgzhrsh

如附件里的页脚的数字1替换成文字一

最佳答案

月排行榜 / 总排行榜

dsmch

2016-4-15 16:31

1. Sub Macro1()
   
2.     With ActiveSheet.PageSetup
   
3.         .LeftFooter = Replace(.LeftFooter, 1, "A")
   
4.         '.CenterFooter = "B"
   
5.         '.RightFooter = "C"
   
6.     End With
   
7. End Sub

复制代码

跳转到最佳答案楼层

dsmch

1. Sub Macro1()
   
2.     With ActiveSheet.PageSetup
   
3.         .LeftFooter = Replace(.LeftFooter, 1, "A")
   
4.         '.CenterFooter = "B"
   
5.         '.RightFooter = "C"
   
6.     End With
   
7. End Sub

复制代码

gdsgzhrsh

dsmch 发表于 2016-4-15 16:31

麻烦传一下附件，调试不出来

dsmch

…………