各位老师，你们好！VBA，当输入数据时，数据整体向上移动，可以吗？

13602822168

VBA，当输入数据时，数据整体向上移动，

扇扇扇

我猜你的意思是这样？

13602822168

扇扇扇 发表于 2024-8-14 15:39
我猜你的意思是这样？

非常感谢，是这样的，能否当输入最后的数值时，自动执行

扇扇扇

13602822168 发表于 2024-8-14 16:28
非常感谢，是这样的，能否当输入最后的数值时，自动执行

应该是可以，但是我不会

ynzsvt

事件代码

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. Dim ARR
   
3. If Application.Intersect(Target, [I82:R82]) Is Nothing Then Exit Sub
   
4. If WorksheetFunction.CountBlank([I82:R82]) = 0 Then
   
5.   ARR = [I3:R82]
   
6.   [I2:R81] = ARR
   
7.   Application.EnableEvents = False
   
8.   [I82:R82].ClearContents
   
9.   Application.EnableEvents = True
   
10. End If
    
11. End Sub

复制代码

13602822168

ynzsvt 发表于 2024-8-15 16:25
事件代码

感谢感谢！！！！