查找值并将整行复制到另一个工作表

Question

我试图创建一个vba代码，但我没有成功。

我想在COLUMN＆＃34; F＆＃34;上搜索价值：＆＃34;已回答＆＃34; 然后从＆＃34; COLUM B到F＆＃34;并粘贴在工作表上＆＃34; ControlAnswered＆＃34; LASTROW;

Answer 1

试试这个，

Sub SpecialCopy()
    Dim targetSh As Worksheet
    Set targetSh = ThisWorkbook.Worksheets("ControlAnswered")
    Dim i As Long
    For i = 1 To Cells(Rows.Count, "F").End(xlUp).Row
        If Cells(i, 6).Value = "Answered" Then
            Range(Cells(i, 2), Cells(i, 6)).Copy Destination:=targetSh.Range("A" & targetSh.Cells(Rows.Count, "A").End(xlUp).Row + 1)
        End If
    Next i
End Sub

我应该说你不会总是找到能为你编写代码的人