我必须使用宏复制excel中的一些特定数据

时间:2018-03-07 13:14:34

标签: excel excel-vba vba

我必须从B5:L16复制excel中的数据并将其粘贴到C3:M14上的另一个工作表中。我有以下代码复制整张表。我无法识别正确的细胞编号。

Set wkbImportedWorkbook = ActiveWorkbook
Set wksImportedWorksheet = wkbImportedWorkbook.Sheets("Summary")


Set rngImportCopyRange = Range(wksImportedWorksheet.Cells(1, 1), Cells(5000, 1)).EntireRow
rngImportCopyRange.Copy wksMasterWorksheet.Cells(1, 1)


rngImportCopyRange.Copy
wksMasterWorksheet.Cells(1, 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False

wkbMasterWorkbook.Activate
Application.DisplayAlerts = False
wkbImportedWorkbook.Close SaveChanges:=False
Application.DisplayAlerts = True

wksMasterWorksheet.Activate
wksMasterWorksheet.Cells(1, 1).Select

Application.ScreenUpdating = True

0 个答案:

没有答案