我需要查看每行上的两个单元格(C和F),并且如果C的值以30结尾,并且F的值大于零,将该行粘贴到另一张纸上。我已经设法使用1个标准来获得复制和粘贴工作,但我无法弄清楚如何让两个标准一起工作。VBA如果在两列中有两个标准
Sub compile1()
Dim x As String
Set rSearch = Sheets("Application").Range("C:C")
For Each cell In rSearch
x = cell.Value
If Right(cell, 2) = "30" And cell.Offset(, 3) > 0 Then
matchRow = cell.Row
Rows(matchRow & ":" & matchRow).Select
Selection.Copy
Sheets("sheet2").Select
ActiveSheet.Rows(matchRow).Select
ActiveSheet.Paste
Sheets("Application").Select
End If
Next
End Sub
你说你的问题的答案, ,但我会使用你的评论线,'如果右(x,2)=“30”和x.offset(0,3).value> 0然后' –
你的范围是错误的,你只需要C in在那里,偏移量移动到F,并使用X而不是单元格作为值比较=“30” –
@Nathan_Sav谢谢。固定和现在工作! –