excel 宏 运行时错误'13' 类型不匹配

Question

想要实现: 手动计算模式下, 工作表中输入1, 则启动宏, 复制A1:A100, 粘贴值到C1:C100, 然后计算工作表
但是运行以下语句在粘贴值后就提示"运行时错误'13' 类型不匹配", 请问应该加入什么语句解决这种情况? 网上搜了好久也没找到, 求教!

Private Sub Worksheet_Change(ByVal Target As Range)
If Target = 1 Then
Range("A1:A100").Select
selection.Copy
Range("C1:C100").Select
selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveSheet.Calculate
End If
End Sub

Answer 1

不匹配是因为没有固定修改数据,引发事件的区域。解决方法如下：

1、打开excel。

2、首先点击左上角的文件菜单，如下图所示。

3、然后点击左侧的选项菜单。

4、接着选择自定义功能区。

5、然后勾选开发工具。

6、接下来在点击开发工具就可以看到宏了。

Answer 2

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 Then
If Target = 1 Then
Range("A1:A100").Select
Selection.Copy
Range("C1:C100").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveSheet.Calculate
End If
End If
End Sub

本回答被提问者采纳

Answer 3

这个问题，你没有固定修改数据，引发事件的区域，你在粘贴C列数据时，有100个单元格数据改变了，而IF函数不知道取哪个的值判断，解决问题，有两种办法，

一个是固定区域，才引发事件，另一个是用代码暂时禁止事件，因为不知道你的条件区域，所以用第二种办法，修改了一下，如下：

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target = 1 Then
        Range("A2:A100").Select
        Selection.Copy
        Application.EnableEvents = False '禁用所有事件
        Range("C2:C100").Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        Application.EnableEvents = True '解禁所有事件
        ActiveSheet.Calculate
    End If
End Sub