excel - 在for循环中复制偏移范围

Question

我有一个脚本，它循环遍历 ID 号列表，以检查另一个列表中是否有匹配的 ID，如果有匹配的 ID，它将复制相邻列中的电子邮件并将其粘贴到另一个范围中。我在复制偏移范围时遇到问题，因为它似乎没有粘贴任何值。该脚本没有抛出任何错误:

Sub tryThis()

Dim lookHere As Range, pasteHere As Range, cell As Range, searchList As Range

Set List1 = Range(Range("A1"), Range("A1").End(xlDown))
Set List2 = Range(Range("C1"), Range("C1").End(xlDown))
    
For Each cell In List1
    
    Set found = List2.Find(what:=cell, LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False)

    If Not found Is Nothing Then
        
        cell.Offset(, 1).Resize(, 1).Copy Destination:=Cells(Rows.Count, "G").End(xlUp)
    
    End If
Next cell

End Sub

Answer 1

这个:

cell.Offset(, 1).Resize(, 1).Copy _
      Destination:=Cells(Rows.Count, "G").End(xlUp)

每次运行都会将值复制到同一单元格中，因为End(xlUp)会将您带到列中最后一个占用单元格，而不是第一个空单元格。您需要 Offset() 减一到下一个空位置。也可以通过直接赋值来做到这一点:

Cells(Rows.Count, "G").End(xlUp).Offset(1, 0).Value = cell.Offset(0, 1).Value

编辑:如果您要复制的单元格来自列表 2，则:

Cells(Rows.Count, "G").End(xlUp).Offset(1, 0).Value = found.Offset(0, 1).Value