With Worksheets("MapLookup_RO")
For c1 = 1 To c1end
Range("F4:F4").Copy Range("F" & Rows.Count).End(xlUp).Offset(1, 0)
Next c1
Application.Wait (Now + TimeValue("0:00:02"))
ActiveWorkbook.Save
End With
如果我手动单击MapLookup_ro工作表,我可以按预期观看代码工作。 但是,如果我手动单击任何其他工作表,然后运行代码,则不会执行复制命令。
为了模块化的缘故,上面的代码位于另一个子例程中的子例程中。 (代码不是“在”工作表的“后面”。)
您没有使用一段时间来使您的范围合格。
ActiveSheet
With
-