Question

我收到错误1004并且不确定原因。我在另一个工作簿中使用这个类似的代码，现在我似乎无法找出正在发生的事情。有人能够向我解释为什么我收到错误？我研究过互联网，但似乎没有帮助。

Dim strNameMR As String, strSht As String
Dim chCell, chRng As Range

Worksheets("Master MR").Select
nRpt = Worksheets("Master MR").Range("O2").Value
dRpt = Worksheets("Master MR").Range("N4").Value
wRpt = Worksheets("Master MR").Range("A4").Value
cdRpt = Format(dRpt, "mm-dd-yyyy")

If Worksheets("Master MR").Range("O2").Value > 0 Then
        strNameMR = "MR" & " " & cdRpt & " " & "(" & nRpt & ")"
End If

strSht = ActiveSheet.Name
Sheets.Add Before:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = strNameMR
Sheets(strSht).Range("A1:N96").Copy
'I get the runtime error 1004 below on next line' 
Sheets(strNameMR).Range("A1").PasteSpecial Paste:=xlPasteValues
Sheets(strNameMR).Range("A1").PasteSpecial Paste:=xlPasteFormats

在另一个工作簿中，这段代码似乎运行得很好。有没有人有什么建议？提前致谢

Excel 2013 VBA从1个电子表格复制范围并复制到第2个电子表格中的范围

0 个答案: