Private Sub cmdRecord_Click()
Sheets("BxWsn Simulation").Range("Result").Select //This is the line with the problem,as excel told me.
    Selection.Copy
    Sheets("Reslt Record").Select
    Sheets("Reslt Record").Range("A5000").End(xlUp).Offset(1).Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats,Operation:= _
        xlNone,SkipBlanks:=False,Transpose:=False
    Sheets("CuCon Simulator").Select
    Application.CutCopyMode = False
    Range("Improvement").Select
End Sub

错误是通过VBA选择Range类失败的方法,错误1004.
有任何想法吗？

谢谢.

编辑：

所以我只是将代码更改为

Sheets("BxWsn Simulation").Select
Range("Result").Select

我相信这是你的意思,让它活跃起来？
但是我仍然得到对象’_Worksheet’的方法’范围’失败,错误1004