学习vba一个星期了，写了一串代码，用来复制采购入库单里的数据保存到采购明细表里，采购明细表是超级表，复制过去的数据超级表不能识别，超级表不自动扩展，选定A1单元格按ctrl+↓键只能定位到原来已有的数据，超级表没扩展的地方就像没有数据似的，求各位大神给看看是哪里出了问题

先说你代码可能出现问题的地方，可能是.pastespecial xlpastevalues这里错了，把括号去掉看看。
另外我点评和指导一下，就不给你详细写你的具体要求了
1、多个SHEET处理的话，最好SET成独立的对象，这样不容易出错，而且除非你是使用select这个方法，否则都不需要先用SELECT或者ACTIVE来切换工作表后再处理数据，例如
DIM WsA as worksheet, WsB as worksheet
with Thisworkbook
set WsA = .sheets("采购录入")
set WsB = .sheets("采购明细表")
end with
2、超级表非常好用，但不是像你这样用，要把它SET成ListObject对象，然后需要学会怎么写入数据，例如
dim ListObj as Listobject
wsa.range("C4:N4").copy
set listobj = wsa.listobjects("超级表名字")
‘超级表在哪行哪列根本不需要管，只需要你定好了表的字段名字就可以直接引用，假设超级表第一个字段叫字段1
listobj.ListColumns("字段1").range.rows(2).pastespecial xlpastevalues
'Listobject的表后如果没写入过数据的话，DataBodyRange是nothing的状态，所以需要用ListColumns("字段1").range.rows(2)才能写入数据（这里面的ROWS数字不管你这个超级表是在第几行开始，只要是字段名行的下一行都是2，如此类推），如果是已经写入过数据的话，则可以使用DataBodyRange.rows(1)来写入（如果是要在DataBodyRange范围的外的下一行写入数据，则可以先用.ListColumns("BUKRS").DataBodyRange.Rows.Count取得最后的数据行数，然后用.ListColumns("BUKRS").DataBodyRange.Rows(N+1)的方法写入
虽然listobject写起数据来可以完全无视表所在的行列位置，但写法会比较复杂，所以最好学会运用好with 来减少代码量，也可以使用ListColumn来定义需要高频使用的字段。

下面的语句可以扩展超级表的范围：
ActiveSheet.ListObjects("表1").Resize ActiveSheet.UsedRange
注意：
一是看你自己的超级表名称，不一定是“表1”；
二是如果不是全表为超级表，需要使用Range("a1").CurrentRegion等实现。

中间出现空行了吧

链接：网页链接
提取码：o9bd