执行Range.Select时出错

Question

我不知道这段代码有什么问题。它在Rng.select上显示错误。当我在另一张纸上进行测试时，它可以工作。有什么帮助吗？

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

在选择范围之前，您必须选择工作表。

修改＃1 ：

在您的示例中，您可能不必选择范围....尝试替换两行：

Rng.Select
Selection.Copy

单行：

Rng.Copy