如果该行包含基于数字范围的特定值，则将一行从一张纸复制到另一张纸上

我想复制并粘贴一行，如果该行包含一个特定的值。 不过，我有约。 我需要获得的100,000个值中有100,000个（复制并粘贴到单独的行中）。 因此，是否有可能创build一个VBA，允许我创build一个循环或某种types，我可以指定这些值？

例如，而不是

For Each cell In Sheets(1).Range("A:A") If cell.Value = "1" Then matchRow = cell.Row Rows(matchRow & ":" & matchRow).Select Selection.Copy Sheets("Sheet2").Select ActiveSheet.Rows(matchRow).Select ActiveSheet.Paste Sheets("Sheet1").Select End If 

我需要：

 For Each cell In Sheets(1).Range("A:A") If cell.Value = "1 OR 3 OR 5 OR 10 OR 15, etc." Then matchRow = cell.Row Rows(matchRow & ":" & matchRow).Select Selection.Copy Sheets("Sheet2").Select ActiveSheet.Rows(matchRow).Select ActiveSheet.Paste Sheets("Sheet1").Select End If 

我是新来的VBA和任何帮助将不胜感激…

最好，

丽莎

Answer 1

使用select案例：

 For Each cell In Sheets(1).Range("A:A") Select Case cell.Value Case "1","3","5","10","15" matchRow = cell.Row Sheets("Sheet1").Rows(matchRow).Copy Sheets("Sheet2").Rows(matchRow) End Select