如何用VBA编程实现将满足条件的数据填充到另一个指定的表格中？ vba跳转到指定工作表

• VBA代码，如何按条件跳转到另一个工作表中？
• vb操作EXCEL把符合条件的数据整体复制到另一工作表？
• excel用VBA实现搜索某些符合条件的行，并复制到另外一个sheet？

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