Excel VBA问题-粘贴特殊(错误461)

Question

我真的希望有人能帮我解决这个问题。我在我的工作簿中实现了一个按钮，其工作方式如下：

1. 用户在工作表中选择一个单元格或单元格范围
2. 用户单击按钮并输入百分比
3. 然后，单元格或单元格范围将按百分比值进行更改

问题是，下面的VBA代码适用于我的大多数工作簿，但不是所有工作簿。代码如下：

Sub Change_x_percentage()
Dim factor As Double
factor = InputBox("Enter the percentage change")
factor = 1 + (factor / 100)
Sheets("Financial items input").Range("B34").value = factor
Sheets("Financial items input").Range("B34").Copy
ActiveSheet.Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlMultiply, _
SkipBlanks:=True, Transpose:=False
End Sub

问题是，我收到以下错误消息："找不到方法或数据成员(错误461("，"选择"突出显示。

在我的一些工作簿中，有人知道是什么原因导致了这个问题吗？

BR。米克尔

Answer 1

删除ActiveSheet.

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlMultiply, _
SkipBlanks:=True, Transpose:=False