求助啊。编个VB

qiufenghuxiao

复制一个表格，然后粘贴。保证表格的属性不变，行高列宽都不变。
怎么编写啊，请教大神

EXCEL771220

先录个宏看看

黄其宾

直接点击表格左上角行列空白处全选,然后复制,再粘贴,保证全不变.

qiufenghuxiao

录了个宏，但是只能保证列宽，而不能保证行高不变。
Sub 检验批()
'
' 检验批 Macro
'

'
    ActiveCell.Offset(-6, -4).Range("A1:M70").Select
    Selection.Copy
    ActiveWindow.SmallScroll Down:=6
    ActiveCell.Offset(70, 0).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
        , SkipBlanks:=False, Transpose:=False
    ActiveWindow.SmallScroll Down:=57
    ActiveCell.Offset(70, 0).Range("A1").Select
End Sub
求大神改改。最好还可以同时复制出多个，就像书上出工资条那样。

qiufenghuxiao

这是我录宏的表格。

qiufenghuxiao

Sub Macro1()
'
' Macro1 Macro
'
Dim i As Integer
For i = 1 To 5
'
    ActiveCell.Range("A1:M70").Select
    Selection.Copy
    ActiveCell.Offset(70, 0).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
        , SkipBlanks:=False, Transpose:=False
    ActiveWindow.SmallScroll Down:=-84
    ActiveCell.Offset(-70, 0).Rows("1:70").EntireRow.Select
    Application.CutCopyMode = False
    Selection.Copy
    ActiveCell.Offset(70, 0).Rows("1:70").EntireRow.Select
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    ActiveWindow.SmallScroll Down:=69
    ActiveCell.Offset(70, 0).Range("A1").Select
Next
End Sub
不知道那错了，求指点