小编use*_*160的帖子

我正在尝试编写一个脚本,如果Sheet 1的第一列的值大于或等于10,则将一行从Sheet 1复制到Sheet 2.

Sub Macro1()

Cells(1, 1).Select
For i = 1 To ActiveCell.SpecialCells(xlLastCell).Row

    Cells(i, 1).Select

    If ActiveCell.Value >= 10 Then
        Rows(ActiveCell.Row).Select

        Rows(i & ":").Select
        Selection.Copy

        Sheets("Sheet2").Select
        ActiveSheet.Paste

        Sheets("Sheet1").Select

     End If

Next i

End Sub

我有两个列表如何检查list1是否有一些来自list2的项目

因为我有:

list1 = ["car","424", "fwe"]
list2 = ["car", "cat"]

也许是这样的:

if list1 has elements from  list2

然后返回true