Question

我是VBA的新手，正在编写一些代码，这些代码可以从一个工作簿中的列复制数据，然后将数据粘贴到另一个工作簿中。

请参见下面的代码：

Set src = Workbooks.Open("C:\Users\RP\Desktop\CopyFrom.xlsm", True, True)

Dim startRow As Integer, endRow as Integer
With src.Sheets("Sheet1")
    startRow = .Range("B:B").Find(what:="*", after:=.Range("B1")).Row
    endRow = .Range("B:B").Find(what:="", after:=.Range("B1"), searchdirection:=xlPrevious).Row
End With

src.Worksheets("Sheet1").Range("B" & startRow & ":B" & endRow).Copy
Sheets("PasteHere").Range("B1").PasteSpecial xlPasteValues

我有startRow和startRow，因为数据在列B中，但没有在单元格B1中开始。

运行宏时，我看到src文件中的数据已被复制（它周围带有虚线的“蚂蚁”，可以将其粘贴到任何位置）。但是，在我当前的工作簿中，没有粘贴数据。

您能帮我弄清楚吗？谢谢！

Answer 1

如前所述，如果只需要这些值，则无需复制和粘贴；实际上，复制和粘贴要比直接使用这些值慢得多！

Set src = Workbooks.Open("C:\Users\RP\Desktop\CopyFrom.xlsm", True, True)
Set dest = Workbooks.Open("C:\Users\RP\Desktop\CopyTo.xlsm", True, True)

Dim startRow As Integer, endRow as Integer
With src.Sheets("Sheet1")
    startRow = .Range("B:B").Find(what:="*", after:=.Range("B1")).Row
    endRow = .Range("B:B").Find(what:="", after:=.Range("B1"),      searchdirection:=xlPrevious).Row
End With

dest.Worksheets("PasteHere").Range("B1").Value = _ 
    src.Worksheets("Sheet1").Range("B1").Value

您可以在此处了解有关Range对象的更多信息：

https://docs.microsoft.com/en-us/office/vba/api/excel.range(object)

Excel VBA：复制和粘贴-正在复制但未粘贴单元格

1 个答案: