我已经管理并将粘贴的数据从一个工作簿复制到主工作簿,但是,数据没有粘贴到正确的位置。在源工作簿的范围(“ A1:C12”)中复制数据,但在主工作簿中将其粘贴在“ M75:O86”范围中。我希望将其粘贴到主工作簿的Range(“ A1:C12”)中。请帮忙。
Option Explicit
Sub Copydata()
Dim myWB As Workbook
Dim thisWB As Workbook
Dim thisWS As Worksheet
Set myWB = Workbooks.Open("C:\Users\jjordan\Desktop\test.xlsx")
myWB.Sheets("Sheet1").Range("A1:C12").Select
Selection.Copy
Set thisWB = ThisWorkbook
Set thisWS = ThisWorkbook.Sheets("Test data")
thisWB.Activate
thisWS.Select
Selection.Range("A1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Application.ScreenUpdating = True
myWB.Close
End Sub
Select
语句很危险,会大大降低您的代码速度。试试这个
Option Explicit
Sub Copydata()
Dim myWB As Workbook
Dim thisWB As Workbook
Dim thisWS As Worksheet
Set myWB = Workbooks.Open("C:\Users\jjordan\Desktop\test.xlsx")
myWB.Sheets("Sheet1").Range("A1:C12").Copy
Set thisWB = ThisWorkbook
Set thisWS = thisWB.Sheets("Test data")
thisWB.Activate
thisWS.Range("A1").PasteSpecial _
Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
With Application
.CutCopyMode = False
.ScreenUpdating = True
End With
myWB.Close
End Sub
本文收集自互联网,转载请注明来源。
如有侵权,请联系 [email protected] 删除。
我来说两句