将工作表 2 中包含工作表 1 上 A 列中的任何值的整行复制到工作表 3

Question

我希望能够从表 2 中复制包含表 1 中列 a 中的任何值的任何行。复制并粘贴到表 3 中。

我在网上找到了这段代码，但单元格值是特定的。我有大约 80 个值，因此单独列出它们需要很长时间。

Sub Test()
For Each Cell In Sheets(1).Range("J:J")
    If **Cell.Value = "131125"** Then
        matchRow = Cell.Row
        Rows(matchRow & ":" & matchRow).Select
        Selection.Copy

        Sheets("Sheet2").Select
        ActiveSheet.Rows(matchRow).Select
        ActiveSheet.Paste
        Sheets("Sheet1").Select
    End If
Next
End Sub

Answer 1

这个怎么样：

Option Explicit
Sub CopyThings()
    Dim rng As Range
    Dim rng1 As Range
    Dim ans As Integer
    On Error GoTo ISAIDRANGE
    Set rng = Application.InputBox("what do you want to copy?", "Select Range", Type:=8)
    ans = MsgBox("the whole row?", vbYesNo)
    Set rng1 = Application.InputBox("where do you want to paste", "Select Range", Type:=8)
    Application.ScreenUpdating = False
    rng1.Parent.Activate
    Select Case ans
        Case Is = vbYes
            rng.Rows.EntireRow.Copy rng1.Rows.EntireRow
        Case Is = vbNo
            rng.Copy rng1
    End Select
ISAIDRANGE:
    Application.ScreenUpdating = True
    If Err.Number = 424 Then ans = MsgBox("that's not a valid range", vbExclamation, "I meant a VALID range")
End Sub