复制Excel工作表时，下标超出范围

Question

我一直在尝试使用以下宏

将值从一个Excel工作表复制到另一个工作表

Sub Sample()
  Dim wsI As Worksheet, wsO As Worksheet

  Set wsI = ThisWorkbook.Sheets("Sheet5")
  Set wsO = ThisWorkbook.Sheets("Sheet11")

  wsI.Range(wsI.Range("A1").Value).Copy wsO.Range("A1")
End Sub

但不幸的是它显示运行时错误'9'： 下标超出范围

我哪里出错了请帮助!!

Answer 1

尝试将以下行更改为

wsI.Range(wsI.Range("A1").Value).Copy wsO.Range("A1")

到

wsI.Range("A1").Copy wsO.Range("A1")