Question

我正在尝试创建一个vba，将符合条件的单元格复制并粘贴到另一张纸上，但是我的问题是它复制了所有与我要查找的相匹配的行。我只需要复制匹配的单元格。这是我的代码

Sub format()

a = Worksheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row

For i = 2 To a
If Worksheets("Sheet1").Cells(i, 1).Value Like "*application_id*" Then
    Worksheets("Sheet1").Cell(i).Copy
    Worksheets("Sheet2").Activate
    b = Worksheets("Sheet2").Cells(Rows.Count, 1).End(xlUp).Row
    Worksheets("Sheet2").Cells(b + 1, 1).Select
    ActiveSheet.Paste
    Worksheets("Sheet1").Activate
End If
Next

End Sub

Answer 1

一开始，您应该避免所有那些激活的东西。我有点困惑

我认为您的问题出在：Worksheets（“ Sheet1”）。Rows（i）.Copy

子格式（）

a = Worksheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To a
If Worksheets("Sheet1").Rows(i, lColumn).Value Like "*application_id*" Then
    Temp = Sheets("Sheet1").Cells(i,lColumn).value
    b = Worksheets("Sheet2").Cells(Rows.Count, 1).End(xlUp).Row
    Sheets("Sheet2").Cells(b + 1, 1) = Temp
End If
Next i

结束子

复制符合条件的特定单元格并粘贴到另一张纸上

1 个答案: