我正在尝试根据列将值从一个工作表粘贴到另一个工作表(如vlookup) . 两张纸都有相同的 Headers . 在第二列中粘贴或键入值将从第二张纸中获取所有相关数据并将其粘贴到第一张纸中,以下代码似乎不起作用 .

For i = 2 To Row
  If ws.Cells(i, 2).Text <> "" Then 
    For j = 2 To row1 
      If InStr(1, ws1.Cells(j, 2).Text, ws.Cells(i, 2).Text, vbTextCompare) > 0 Then 
        For k = 3 To 8 
          ws.Cells(i, k).Value = ws1.Cells(j, k).Value 
        Next k 
        Exit For 
      End If 
    Next j 
  End If 
Next i