Vba 从不同的工作表复制和粘贴数据
我正在尝试使用VB脚本将excel sheet1中的数据复制到sheet2。 问题是我想粘贴复制的数据,从A1开始,并将A1中的当前数据推送到新数据的底部。到目前为止,我的代码刚刚超过权限,请查看以下内容:Vba 从不同的工作表复制和粘贴数据,vba,vbscript,Vba,Vbscript,我正在尝试使用VB脚本将excel sheet1中的数据复制到sheet2。 问题是我想粘贴复制的数据,从A1开始,并将A1中的当前数据推送到新数据的底部。到目前为止,我的代码刚刚超过权限,请查看以下内容: Set objExcel = CreateObject("Excel.Application") Set objWorkBook = objExcel.Workbooks.Open(CurrentDirectory & "\test.xlsx") objWorkbook.Worksh
Set objExcel = CreateObject("Excel.Application")
Set objWorkBook = objExcel.Workbooks.Open(CurrentDirectory & "\test.xlsx")
objWorkbook.Worksheets("Sheet1").Range("A1:B9").Copy
objWorkbook.Worksheets("Sheet2").Range("A1").PasteSpecial
objExcel.ActiveWorkbook.Save
objExcel.Quit
试试这个:
objWorkbook.Worksheets("Sheet1").Range("A1:B9").Copy
objWorkbook.Worksheets("Sheet2").Range("A1").Insert -4121