求按照图中的条件显示数字的代码，非常感谢！

LSYYLW

2024-2-17.zip (5.57 KB, 下载次数: 8)

2024-2-17 09:34 上传

点击文件名下载附件

saghj

是要这样吗？没太看懂z1是起什么作用的

gwjkkkkk

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

gwjkkkkk

请参考。。。

LSYYLW

saghj 发表于 2024-2-17 10:45
是要这样吗？没太看懂z1是起什么作用的

非常感谢老师！

LSYYLW

gwjkkkkk 发表于 2024-2-17 11:12
请参考。。。

非常感谢老师！