來自多個工作表的VBA Excel復制/粘貼特定范圍

Question

我一直在網上尋找解決方案，但是無論嘗試如何，我都會不斷遇到錯誤。

我大約有20個工作表，我想為每個工作表復制相同的范圍，然后將它們合並到另一個工作表中以創建報告。

我可以在下面修改此解決方案，但是仍然無法正常工作，我也不知道為什么。

任何幫助都是感激的。

Sub forReport()

   Dim lRow As Long
   Dim copyRange As Range
    Dim sh As Worksheet
    Dim shReport As Worksheet
    Set shReport = ThisWorkbook.Worksheets("ALLProjectForReport")

    For Each sh In ThisWorkbook.Worksheets
        Select Case sh.Name
            Case Is <> "ALLProjectForReport"
                lRow = shReport.Cells(Rows.count, "A").End(xlUp).Row + 1
               Set copyRange = sh.Range("A:B,D:D,F:F,J:K,L:L,BK:BK,GA:GB,GF:GF")

               copyRange.Copy Destination:=shReport.Range("A" & lRow)                    

        End Select
    Next
    Set shReport = Nothing
    Set sh = Nothing
End Sub

但是每次我得到一個錯誤運行時“ 1004”來突出顯示這一行

 copyRange.Copy Destination:=shReport.Range("A" & lRow)

有什么幫助嗎？

Answer 1

試試這個快速修復：

Set copyRange = Intersect(sh.UsedRange, sh.Range("A:B,D:D,F:F,J:K,L:L,BK:BK,GA:GB,GF:GF"))