如果从vba

Question

我正在尝试使用vba宏从一个表（表1）中复制值并将其粘贴到另一表（表2）中。

例如：Sheet1“数据”按标题“类型”和“空白”进行过滤，结果值将被复制，标题除外，并将其粘贴到sheet2的table2下（最后一行的旁边）

这里的问题是宏工作正常，但是粘贴值的table2在粘贴时不会扩展。

我尝试在自动检查选项中启用“包含表中的行和列”，但表未扩展。

我尝试了以下操作：

range("Check_for_Alias[[#Headers],[Type]]").Select 
Selection.AutoFilter 
ActiveSheet.ListObjects("Check_for_Alias").range.AutoFilter Field:=18, _
Criteria1:="=" range("Check_for_Alias[Type]").Offset(1, 0).Select 
range(Selection, Selection.End(xlDown)).Select 
range("Check_for_Alias[[Team]:[Type]]").Select 
range("Check_for_Alias[Type]").Offset(1, 0).Activate
Selection.Copy Sheets("Share_point").Select 
ActiveSheet.range("C7").End(xlDown).Offset(1, 0).Select
ActiveSheet.paste