Excel 2010中出错，宏中范围类的特殊方法失败

以下是引发此错误的代码：

范围类的特殊方法失败

错误仅在我尝试调试时抛出

Range(Cells(7, 1), Cells((Rowrange + 7), 2)).Select
Selection.PasteSpecial Paste:=xlValues


  ' my complete code

strSheetName = "sheet1"
Sheets(strSheetName).Select
B6 = Range("B6").Value
B7 = Range("B7").Value
Range(Cells(11, 1), Cells((Rowrange + 11), 2)).Select
Selection.Copy

strSheetName = "sheet2"
Sheets(strSheetName).Select
' Range(Cells(7, 1), Cells((Rowrange + 7), 2)).Select
'.Range(Cells(7,1), .Cells(RowRange + 7, 2). PasteSpecial Paste := xlValues
'Selection.PasteSpecial Paste:=xlValues
With ActiveSheet
.Range(.Cells(7, 1), .Cells(Rowrange + 7, 2)).PasteSpecial Paste:=xlValues
End With

---

有没有办法避免这种错误？

避免这种错误的最好方法是只使用完全限定的范围：

With Sheets("The name of the sheet")
    .Range(.Cells(7, 1), .Cells(RowRange + 7, 2)).PasteSpecial Paste:=xlValues
End With

或者：

使用ActiveSheet

，如果您知道该工作表已被选中

还请注意，选择是不必要的。

我相信（如果以上是您的完整代码），您没有复制数据并直接尝试进行粘贴，因此会出现错误：）

这就是你想要的吗

strSheetName = "Estimated vs Actual Costs"
With Sheets(strSheetName)
    .Range(.Cells(7, 1), .Cells(RowRange + 7, 2)).Copy
    .Range(.Cells(7, 1), .Cells(RowRange + 7, 2)).PasteSpecial Paste:=xlValues
End With

跟进

试试这个

strSheetName = "sheet1"
With Sheets(strSheetName)
    B6 = .Range("B6").Value
    B7 = .Range("B7").Value
    .Range(.Cells(11, 1), .Cells((RowRange + 11), 2)).Copy
End With

strSheetName = "sheet2"
With Sheets(strSheetName)
    .Range(.Cells(7, 1), .Cells(RowRange + 7, 2)).PasteSpecial Paste:=xlValues
End With

---

我使用Excel 2010，但我所处理的报告是在Excel 2003中创建的。@SiddharthRout:我已经输入了代码。请检查。行范围是“2”。@user1382191您复制的代码部分在哪里？当你在问题中显示的那一行时，你确定剪贴板上有什么东西吗？

RowRange

的值是多少？你能显示完整的代码（包括复制代码）吗？你要复制到哪里进行粘贴？您需要先复制才能进行粘贴；）有时我会随机出现这个错误（Excel 2003/Windows 7或XP），重新启动计算机似乎可以解决这个问题。奇怪。：仍然有相同的错误。如何检查剪贴板数据？？？可能是我猜这是我的数据问题。xlValues data tats即将出现的是“-4165”。你上传你的excel文件吗？：是的，我上传excel文件。在wikisend.com上传文件并在这里共享链接：我在一家公司工作，我不允许这样做，因为它是非法的。没有别的办法吗？？