怎样连格式、公式也一起复制

Question

代码： 
Sheets("表1").Range("A1:L80").Copy objsheet.Range("A1")这样复制后，列宽是标准列宽==问题
怎样连格式、公式也一起复制

Answer 1

那行高呢？只有一行与被复制表不一样：Range("A80") =××××：
                                                            ×××××
                                  运行后，只显示冒号前面的，第二行隐藏！如果只有一张表，可以拉一下，很多表的话就太麻烦了！
        

Answer 2

这是用数值代替的：
Sheets("设备总表").Range("A:L").Copy objsheet.Range("A1")                  
Rows("80:80").RowHeight = 48如果可以用Range("80:80")，Range("80:80")和Range("A:L")要怎么合在一起复制！
Sheets("设备总表").Range("A:L").Copy objsheet.Range("A1") Range("80:80")

Answer 3

那你不如整个Sheet复制，再在复制后的基础上调整。

Answer 4

没有绝境，只有思维的绝望！我要赶快把那本超量级的VBA看完！  ^_^

Answer 5

For i = 1 To 12
   Set objsheet = Sheets(i + 1)
   objsheet.Activate
   With ActiveSheet.PageSetup                  
      .CenterFooter = "&""宋体,常规""第&""Times New Roman,常规""&p+1&""宋体,常规""页，共&""Times New Roman,常规""13&""宋体,常规""页"      
    End With
Next页脚为什么不更新呢？只有你一张显示“第2页，共13页”正确，其他张也显示“第2页，共13页”

Answer 6

  p+1是不行，一直是加大第一张表的，可是p+i更错

Answer 7

For i = 1 To Sheets.Count
   With Sheets(i).PageSetup
      .CenterFooter = "第 &P 页，共 &N 页"
    End With
Next

Answer 8

Sub pagesetup()
    Dim i%
    For i = 1 To Sheets.Count - 1
      With Sheets(i).pagesetup                                     
           .CenterFooter = "第 &P 页，共 &N 页"             
      End With
    Next
End Sub我没觉得哪里有不对劲啊！为什么每一页都显示为“第1页，共1页”？

Answer 9

如果你确保每个Sheet只有一页，可以
For i = 1 To Sheets.Count
   With Sheets(i).PageSetup
      .CenterFooter = "第 " & i & " 页，共 " & Sheets.Count & " 页"
    End With
Next