|
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim ar, br, i&, j&, r&
If Target.Count > 1 Then Exit Sub
MsgBox Target.Address
If Target.Address <> "$Z$1" Then Exit Sub
Application.ScreenUpdating = False
ar = Range("K11", Cells(Rows.Count, "T").End(xlUp)).Value
ReDim br(1 To 81, 0): r = 82
For i = UBound(ar) To 2 Step -1
r = r - 1
If r = 0 Then Exit For
For j = 1 To UBound(ar, 2)
If ar(i, j) = 0 Then br(r, 0) = ar(i - 1, j): Exit For
Next j
Next i
Application.EnableEvents = False
Range("Z2:Z" & Rows.Count).ClearContents
[Z22].Resize(UBound(br)) = br
Application.EnableEvents = True
Application.ScreenUpdating = True
Beep
End Sub |
评分
-
1
查看全部评分
-
|