麻烦,写这么多,懒得看,就一句:
wb.sheet2.range("A1:Z1000").value=wb.sheet1.range("A1:Z1000").value
sheet1复制到sheet2搞定,只有值,不带格式。
用range对象的pastespecial方法,可以选择粘贴格式,值和数字格式的常量是xlpastevaluesandnumberformats:
usedrange.copy
sheet1.range("a"&......).pastespecial xlpastevaluesandnumberformats