当相应的前一列（A）单元格与数组中的变量匹配时，将一列（B）的单元格从一张复制到另一张

Question

我是VBA的新手。我试图通过从一个Excel工作表中获取很少的信息并在另一工作表中填充值来自动填充Excel。 问题是： 当相应的先前column（A）单元格值与数组中的变量匹配时，我正在尝试将column（B）的单元格从一张纸复制到另一张纸

我的代码如下：

For Each c1 In values_adapt_class           
    Worksheets("Adaptation_Class").Activate
    N = Cells(Rows.Count, "A").End(xlUp).Row
    pasteRowIndex = 1
    For i = 2 To N
        If (StrComp((Cells(i, "A").Value), (c1), vbTextCompare) = 0) Then
            Cells(i, "B").Select
            Selection.Copy
            Dim ws As Object
            Set ws = wb.Sheets(c1)
            ws.Select
            Range("E1").Select
            ActiveSheet.Paste

        End If
    Next i
Next c1