[已解决]自动填充Selection.AutoFill Destination的使用方法

大灰狼1976

不明白你用select case的意义是什么，另，B列到底要什么结果没有完全明白，最好在附件内做个示例。

作伴，

大灰狼1976 发表于 2017-6-19 12:36
不明白你用select case的意义是什么，另，B列到底要什么结果没有完全明白，最好在附件内做个示例。

1.现在不是可以从C列知道向下填充次数了吗。C列向下填充的内容是C列单元格的。现在B列是要从C列内读取向下填充的次数，向下填充的内容是B列单元格的内容。
2.现在我用Backspace键来删除C列单元格内容会报运行时错误1004。
Private Sub Worksheet_Change(ByVal Target As Range)
          If Target.Column = 8 Then
        If InStr(Target.Value, "/") Then
            Target.Value = "'" & Format(Split(Target.Value, "/")(1), "00") & Format(Split(Target.Value, "/")(0), "00")
        End If
     Application.EnableEvents = False
Target.AutoFill Destination:=Target.Resize(Val(Left(Target.Value, 2)))
Application.EnableEvents = True
    End If
End Sub

大灰狼1976

防止删除时报错只要在前面加一句if target="" then exit sub就行了。
B列我看你先自己想想办法吧。