执行Range.Select时出错

我不知道这个代码有什么问题。 它在Rng.select中显示错误。 当我在另一张纸上testing它的工作。 任何帮助？

Sub copyex() Dim Lastro As Integer Dim oSht As Worksheet Dim Rng As Range 'make exact copy at S6 for comparasion Set oSht = Workbooks("Main.xlsm").Sheets("Work") Lastro = oSht.Cells(Rows.Count, 2).End(xlUp).Row With oSht Set Rng = oSht.Range("B6:G" & Lastro) Rng.Select Selection.Copy Range("S6").Select ActiveSheet.Paste End With 

Answer 1

在select范围之前，您必须select表格。

编辑＃1 ：

在你的例子中，你可能不需要select范围….尝试更换两行：

 Rng.Select Selection.Copy 

用单行：

 Rng.Copy