Excel VBA问题-PasteSpecial（错误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

丢弃and

ActiveSheet.