运行时错误 1004 对象“_Worksheet”的方法“范围”失败

Question

我正在尝试将许多工作表合并为一张新工作表。我真的很感激任何 cmets。

问题在于这一行：

wsSrc.Range("A1", wsSrc.Range("D", lastRow)).Copy Destination:=rngDest 

当我尝试运行它时会导致错误。我以前一直在使用代码将所有工作表合并到工作表摘要中，这是创建宏按钮的地方，效果很好。

Sub mcrCombine()

ActiveWorkbook.Sheets.Add.Name = "Combined" 'Create new sheet

'Definitions
Dim wsSrc As Worksheet
Dim wsDest As Worksheet
Dim rngDest As Range
Dim lastRow As Long
Dim destRow As Long
Set wsDest = Worksheets("Combined") 'Destination sheet in same Workbook
Set rngDest = wsDest.Range("B1") 'Destination cell in Combined
Application.DisplayAlerts = False 'suppress prompt worksheet delete

'loop through all sheets
For Each wsSrc In ThisWorkbook.Sheets
    If wsSrc.Name <> "Summary" And wsSrc.Name <> "Combined" Then 'all sheets except summary
        lastRow = wsSrc.Cells.SpecialCells(xlCellTypeLastCell).Row 'define     last row
        wsSrc.Range("A1", wsSrc.Range("D", lastRow)).Copy Destination:=rngDest 'copy and paste data in range
        Set rngDest = rngDest.Offset(lastRow - 1) 'update destination range
        wsSrc.Delete 'delete source file
    End If
Next
Application.DisplayAlerts = True 'prompts back on
End Sub

Answer 1

好的，我不确定这会让你的代码实现它应该做的所有事情，但是因为你纠正了@Jeeped 指出的问题并在这一行中指定了你的问题：

wsSrc.Range("A1", wsSrc.Range("D", lastRow)).Copy Destination:=rngDest

此行中的错误是因为逗号而不是＆符号。你应该把它改成：

wsSrc.Range("A1", "D" & lastRow).Copy Destination:=rngDest

希望这会有所帮助。

Answer 2

我之前一直在使用代码将所有工作表合并到工作表摘要中，这是创建宏按钮的地方，效果很好。

这就是正在发生的事情的线索。当您循环浏览工作簿中的每个工作表时，请注意不要处理 摘要 工作表；可能是因为 a) 它已经包含来自其他工作表的汇总信息，并且 b) 您不希望它与正在处理的其他工作表一起删除。

如果您已将中心位置更改为 组合 工作表，则必须将其包含在工作表中才能跳过。未能跳过 Combined 工作表将 a) 将其内容复制到自身之上并 b) 删除 Combined 工作表。

If wsSrc.Name <> "Summary" And wsSrc.Name <> "Combined" Then

如果您删除了组合工作表，那么目的地就没有任何障碍了。