VBA代码，如何按条件跳转到另一个工作表中？
Sub aa()
With Worksheets("sheet2")
.Visible = True
.Activate
.Range("a1").Select
End With
End Sub
----------
将自选图形的宏指定为上面的aa宏
vb操作EXCEL把符合条件的数据整体复制到另一工作表？
for i= 1 to [a65536].end(3).row
if range("A"&i)="张三" then '这里假设判定A列是否有张三
rows(i).copy sheets("信贷").[a65536].end(3).offset(1)
end if
next i
excel用VBA实现搜索某些符合条件的行，并复制到另外一个sheet？
Sub tty()
Dim point As Integer
Sheet1.Activate
point = 1
num = ThisWorkbook.ActiveSheet.Range("D65536").End(xlUp).Row
For i = 1 To num
If InStr(Cells(i, 4), "-101") > 0 And LCase(Cells(i, 17)) <> "ok" Then
Cells(i, 4).EntireRow.Select
Selection.Copy
Sheet4.Cells(point, 1).PasteSpecial
point = point + 1
End If
Next i
End Sub