Question

提示运行时错误1004，方法“add”作用于对象“sheet”时失败

Sub 站点代码筛选()
'筛选区站
finalrow = Cells(Rows.Count, 1).End(xlUp).Row
finalcol = Cells(1, Columns.Count).End(xlToLeft).Column
Range("A1").Copy Range("AA1")
Range(Cells(1, 1), Cells(finalrow, finalcol)).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range( _
"AA1"), Unique:=True
finalrow1 = Cells(Rows.Count, 27).End(xlUp).Row
Worksheets.Add after:=Worksheets(Worksheets.Count), Count:=finalrow1 - 1

Answer 1

时间，抓住它俘虏进我的黑房间——
你关上门。它又重现。
什麽事我全能干得顶呱呱。
那里，不不不是那里，是那里，
在科尔多瓦和塞维利亚之间，
是的是的胧胧哈哈

Answer 2

站点代码筛选()