在工作簿之间复制和粘贴而不激活任何一个

以下代码在不同的工作簿之间复制和粘贴。 我不确定为什么没有“Source.Activate”和“Master.Activate”这两行就无法运行？ 换句话说，为什么要激活工作簿，尽pipe他们是在开始的时候被声明和设置的？

Dim Source As Worksheet Set Source = Workbooks("Source.xlsx").Worksheets("Settlements") Dim Master As Worksheet Set Master = Workbooks("Master.xlsm").Worksheets(Sheets.Count) Source.Activate '??? For Each cell In Source.Columns("M").Cells If cell <> "" Then Master.Activate '??? For Each cell2 In Master.Columns("J").Cells If cell2 <> "" Then If cell = cell2 Then cell2.Offset(0, 9).Value = cell.Offset(0, -2).Value cell2.Offset(0, 8).Value = cell.Offset(0, -8).Value End If End If Next cell2 End If Next cell 

在此先感谢，Bartek

Answer 1

源和目标工作簿都不能被激活来执行复制/粘贴。 例如：

 Sub Macro1() Dim b1 As Workbook, b2 As Workbook Dim r1 As Range, r2 As Range Workbooks.Open Filename:="C:\TestFolder\1\1.xlsx" Set b1 = ActiveWorkbook Set r1 = b1.Sheets("Sheet1").Range("A1") Workbooks.Open Filename:="C:\TestFolder\1\2.xlsx" Set b2 = ActiveWorkbook Set r2 = b1.Sheets("Sheet1").Range("A1") ThisWorkbook.Activate r1.Copy r2 End Sub 

Answer 2

您根本不需要激活工作簿，也不需要执行任何操作。 但是你确实需要使用match或者find，而不是循环遍历主文件中的每个单元格。

Not IsError是跳过非匹配，因为Match在找不到匹配时会抛出错误。 Match函数返回find的第一个匹配的行号。

另一件事.Worksheets(Sheets.Count)返回工作簿中的最后一个工作表，为什么不把它设置为工作表名称，如source？

 Dim Source As Worksheet Dim Master As Worksheet Set Source = Workbooks("Source.xlsx").Worksheets("Settlements") Set Master = Workbooks("Master.xlsm").Worksheets(Sheets.Count) For Each c In Source.Columns("M").Cells If c <> "" Then If Not Application.WorksheetFunction.IsError(Application.Match(c, Master.Columns("J"), 0)) Then crow = Application.Match(c, Master.Columns("J"), 0) Master.Range("J" & crow).Offset(0, 9).Value = c.Offset(0, -2).Value Master.Range("J" & crow).Offset(0, 8).Value = c.Offset(0, -8).Value End If 'End If 'Next cell2 End If Next c