VBA range问题

sixgod_ness

求大神帮助，想要实现的需求如下：根据筛选需求，然后把筛选的内容按照行都放在一个工作表中，依照顺序，我自己实现的代码并不能帮助做到这一步，问题在于复制筛选的内容有问题，不知道怎么实现。

代码如下
Dim i, k, y, f As Integer
k = Sheet2.Range("a65536").End(xlUp).Row
y = Sheet1.Range("a65536").End(xlUp).Row
f = Sheets(3).Range("a65536").End(xlUp).Row

For i = 1 To k
    Sheet1.Range("a1").AutoFilter
    Sheet1.Range("a1").AutoFilter field:=9, Criteria1:=Sheet2.Range("a" & i)
    Sheets(1).Range("a2:l65536").Copy Sheets(3).Range("a" & f + 1) ‘这一步range有问题，我不知道怎么让计算机扫描到行（尤其是8000多行有一组数据，然后复制到另一行中（因为筛选的行都要800多行了，他扫描不到）
    Sheet1.Range("a1").AutoFilter
Next
End Sub

zhangmi

Sheets(1).Range("a2:l65536")这个应该是不行的，改成Sheets(1).Range("a2:l" & y)试试？

liulang0808

Application.Intersect(Sheets(1).UsedRange, Sheets(1).Columns("a:l")).SpecialCells(xlCellTypeVisible).Copy Sheets(3).Range("a" & f + 1)
看看是否可行把

sixgod_ness

能用的！非常感谢各位大佬