在其他工作簿的其他工作表中查找值并复制到当前工作簿的工作表

Question

我在两本不同的工作簿中有两张纸。 a) 工作簿(A).Sheets("A") b)Workbook(B).Sheets("B")

工作簿A中的工作表A是目标文件。 工作簿 B 中的工作表 B 是源文件。

用户在工作表A中输入B的文件名（打开工作表B），然后从工作表B中循环查找大于参考值的值。找到值后，该值将立即复制并粘贴到工作表 A（工作簿 b）中。然后在B表中循环查找后续值（大于参考值）。该过程将持续进行，直到满足某些标准。

我设法在循环中找到该值，但我必须将该值粘贴到工作表 B 中，然后复制到工作表 A 中。当然，用户必须单击是否保存工作表 B 的消息。 下面是写的代码。请赐教。

Dim VerR As Workbook
Dim VerRDest As Worksheet
Dim VerRMaxR As Range

Application.ScreenUpdating = False
XLS = Cells(16, 5)
Workbooks(XLS).Activate

Sheets("ROLLER").Select
Path = Cells(18, 5)
NoR = Cells(17, 5)
Workbooks.Open Filename:=Path

Set VerR = Workbooks(XLS)
Sheets("Stat_1").Select        
y = 3
i = 4
Do While (Cells(i, 1) <> "")
    i = i + 1
Loop

m2 = i - 1
For x = 4 To m2
    If (cells(x,2)>5) Then
        y = y + 1
        TF = True
        If TF Then
            Cells(y, 6) = Cells(x + 1, 1)
            Cells(y, 5) = Cells(x + 1, 2)
        End If
    End If
Next x

Set VerMax1 = ActiveSheet.Range(Cells(4, 5), Cells(y, 6))
VerMax1.Copy
ActiveWorkbook.Close

Set VerRDest = VerR.Worksheets("ROLLER")
Set VerRMaxR = VerRDest.Range(Cells(4, 3), Cells(y, 4))
VerRMaxR.PasteSpecial , Paste:=xlPasteValues

---

我的目标是粘贴该值而不影响源工作簿。请帮助。谢谢。我真的很欣赏你的想法。我已经无计可施了。

Answer 1

dim r1 as range, r2 as range

r1.copy r2

或者

r1.copy
r2.pastespecial ....