[已解决]VBA自动填充 公式问题

huangxuejin

VBA自动填充公式问题  ，希望计算式取消、自动填充的公式也随着取消，有哪位老师帮帮我

最佳答案

月排行榜 / 总排行榜

蓝桥玄霜

2016-10-30 12:31

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. Application.ScreenUpdating = False
   
3.   Application.EnableEvents = False
   
4. If Target.Count > 1 Then Exit Sub
   
5. If Target.Column = 3 Or Target.Row > 3 Then
   
6.     If Target = "" Then Target.Offset(0, -1) = ""
   
7. Else
   
8.     k = Range("C6556").End(xlUp).Row
   
9.     Cells(4, 2).Copy Range(Cells(4, 2), Cells(k, 2))  '第2列第4行开始
   
10. End If
    
11.      Application.EnableEvents = True
    
12.    Application.ScreenUpdating = T
    
13. End Sub
    

复制代码

跳转到最佳答案楼层

蓝桥玄霜

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. Application.ScreenUpdating = False
   
3.   Application.EnableEvents = False
   
4. If Target.Count > 1 Then Exit Sub
   
5. If Target.Column = 3 Or Target.Row > 3 Then
   
6.     If Target = "" Then Target.Offset(0, -1) = ""
   
7. Else
   
8.     k = Range("C6556").End(xlUp).Row
   
9.     Cells(4, 2).Copy Range(Cells(4, 2), Cells(k, 2))  '第2列第4行开始
   
10. End If
    
11.      Application.EnableEvents = True
    
12.    Application.ScreenUpdating = T
    
13. End Sub
    

复制代码

huangxuejin

蓝桥玄霜 发表于 2016-10-30 12:31

现在实现了删除C列计算式B列的公式自动删除，但C列重新输入数值是而B列公式不会自动填充了，老师帮我看看那里再改一下。
意思就是C列有数值B列就自动填充公式，C列没有数值B列就没有公式

huangxuejin

自个儿 顶一个，真无解吗？

huangxuejin

公式顺序调整后达到预期效果，感谢 蓝桥玄霜 老师！

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
  Application.EnableEvents = False
   k = Range("C6556").End(xlUp).Row
    Cells(4, 2).Copy Range(Cells(4, 2), Cells(k, 2))  '第2列第4行开始
If Target.Count > 1 Then Exit Sub
If Target.Column = 3 Or Target.Row > 3 Then
    If Target = "" Then Target.Offset(0, -1) = ""
Else
End If
     Application.EnableEvents = True
   Application.ScreenUpdating = T
End Sub