VBA将满足条件的多行复制到另一个工作表

Question

我真的不太懂VBA，所以请耐心等待。

我有一个分配到特定航班 (LEGID) 的人员列表，我想将这些人员 (工作表 pax) 复制到另一个工作表中的特定单元格 (temp - 单元格 b15)，但它不起作用。

此数据表是来自 salesforce 的查询报告。

Sub pax()

   Dim LastRow As Long
   Dim i As Long, j As Long
   Dim legid As String

Application.ScreenUpdating = False

legid = ThisWorkbook.Worksheets("setup").Range("SelReq").Value

Debug.Print legid


   'Find the last used row in a Column: column A in this example
   With Worksheets("pax")
      LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
   End With

'   MsgBox (LastRow)
   'first row number where you need to paste values in temp'
   With Worksheets("temp")
      j = .Cells(.Rows.Count, "a").End(xlUp).Row + 1
   End With

   For i = 1 To LastRow
       With Worksheets("pax")
           If .Cells(i, 1).Value = legid Then
               .Rows(i).Copy Destination:=Worksheets("temp").Range("a" & j)
               j = j + 1
           End If
       End With
   Next i

Application.ScreenUpdating = True

End Sub

Answer 1

如果您只想复制名称。你可以用这个；但是，如果它们是命名范围，您将需要更新工作表名称和范围。此代码在 Sheet3 上查看特定单元格的值，然后如果该值与 Sheet1 上某个范围内的值匹配，它将把 Sheet1 上 B 列中的值放入 Sheet2

Sub Test()
    Dim cell As Range
    Dim LastRow As Long, i As Long, j As Long
    Dim legid As String


    With Sheet1
        LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
    End With

    With Sheet2
        j = .Cells(.Rows.Count, "A").End(xlUp).Row + 1
    End With

    legid = Sheet3.Range("A1")

    For i = 2 To LastRow
        For Each cell In Sheet1.Range("A" & i)
            If cell.Value = legid Then
                Sheet2.Range("A" & j) = cell.Offset(0, 1).Value
                j = j + 1
            End If
        Next cell
    Next i

End Sub