小编tho*_*mas的帖子

选择范围时,我遇到错误1004"应用程序定义或对象定义错误"的问题.

我仍然可以选择行(即Rows("21:21").select)并在同一工作簿的其他工作表中选择范围.我不相信错误在代码中.也许它的一些设置我不知道？

我之前已多次使用完全相同的代码,但由于某种原因我无法在此子函数中使用它(我已经评论了错误发生的位置)...

Sub CopySheet1_to_PasteSheet2()

    Dim CLastFundRow As Integer
    Dim CFirstBlankRow As Integer

    'Finds last row of content
    Windows("Excel.xlsm").Activate
    Sheets("Sheet1").Activate
    Range("C21").Select
         '>>>Error 1004 "Application-defined or Object-defined error" Occurs
    Selection.End(xlDown).Select
    CLastFundRow = ActiveCell.Row
    'Finds first row without content
    CFirstBlankRow = CLastFundRow + 1

    'Copy Data
    Range("A21:C" & CLastFundRow).Select
    Selection.Copy
    'Paste Data Values
    Sheets("PalTrakExport PortfolioAIdName").Select
    Range("A21").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

    'Bring back to top of sheet for consistancy
    Range("A21").Select
    Range("A1").Select
End Sub

我需要在我的复制中充满乐趣,因为行数会经常变化.同样,下面的代码之前已经使用过,没有错误......但在这个例子中没有.

Dim CLastFundRow As Integer …