代码如下：
Set sht = WB.Worksheets("1")
    sht.Activate
 sht.Range("G55:T57").Copy
Set sht = WB.Worksheets("2")
   WB.Sheets("2").Activate
   sht.Range("G55").Activate
  sht.Range("G55").Paste
最后一句提示错误

[ 本帖最后由 lx5656 于 2015-5-21 10:43 编辑 ]

复制指定区域一句代码
比如
sht1为工作表1,sht2为工作表2
("h7:m9")为源区域
("z1")为目标区域
sht1.Range("h7:m9").Copy sht2.Range("z1")

但是我这个表提示还是有问题，问题主要出在哪里？

你原代码不对.
activate只是指定当前显示表格
copy用法不对,没有paste这种用法.
改为
set sht1=wb.worksheets("源表名")
set sht2=wb.worksheets("目的表名")
sht1.range("区域").copy sht2.range("区域")

明白！了谢谢

我拷贝过来的数据是乱码，我只想要数值就行，怎么写呢？请高手帮帮我

[ 本帖最后由 lx5656 于 2015-5-21 11:28 编辑 ]

copy方法是把源数据类型也拷贝到目标区域的,显示什么乱码呢?是不是####,那是因为单元格宽度不够