VBA中，如何一次选中符合条件的所有行，并复制到另一工作表？

http://jingyan.baidu.com/article/6c67b1d6931ab72787bb1ecd.html 不一定要VBA的 可以参考下这个追问

是写了一段VBA代码，有一部分功能需要用到这个~

筛选就行了追问

这是一段代码一部分需要这个功能 - -

追答

遍历A列，每个单元格和“3-01”比较一下，满足的放到另一个工作表

追问

我是这样写的，但是如何能把j的值写成自动获取行号呢

追答Sub test()
With Sheets(1)
For i = 1 To Rows.Count
    If .Cells(i, 1).Value = "3-01" Then
        j = j + 1
        Sheets(2).Rows(j).Value = .Rows(i).Value
    End If
Next
End With
End Sub

本回答被网友采纳