從每個工作表中複製並粘貼一個範圍

Question

我有一個包含油井石油生產信息的工作簿。每口井都有自己的工作表。我想將每口井的累積石油和天然氣產量複製並粘貼到工作簿末尾的預製工作表中，以便我可以獲得累積石油生產清單。

正常的複製和粘貼vba不適用於我，因爲我試圖粘貼的是計算值。每當我執行我的當前代碼時，我都會收到#REF錯誤。

我知道這不是一個獨特的問題，它已被問在此之前。我已經看過以前對這個問題的回答，但試圖破壞代碼但失敗了。我知道我需要使用粘貼特殊功能，但我似乎無法弄清楚如何讓這個工作。

我正在複製範圍AB3：AE3。我試圖複製並粘貼到的表名是SmtProd。我希望將值複製到第2行開始的SmtProd表單中（第1行具有標題）。

下面是我目前的複製和粘貼代碼

Range("AB3:AE3").Copy 
    Selection.Copy Sheets("SmtProd").Range("A" & Rows.Count).End(3)(2) 

任何幫助，將不勝感激

感謝，

約西亞

Answer 1

試試這個：

Sub MakeSummary() 
    Dim sh As Worksheet, N As Long 
    Dim i As Long, M As Long 
    N = Sheets.Count - 1 
    M = 2 
    For i = 1 To N 
     Sheets(i).Range("AB3:AE3").Copy 
     Sheets("SmtProd").Range("A" & M).PasteSpecial (xlValues) 
     Sheets("SmtProd").Range("A" & M).PasteSpecial (xlFormats) 
     M = M + 1 
    Next i 
End Sub 

請注意雙面粘貼。