Excel代码问题，非常感谢！

longwin

LSYYLW 发表于 2024-6-22 15:32
老师您好：又来麻烦您了，您有时间帮我看一下8楼附件里有颜色单元格里的文字，帮我解决一下，拜托了！

加上红色的一句：


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$AM$1" Then

h = [Ac2].End(xlDown).Row
h2 = [Ac2].End(4).End(4).Row
arr = Range("AC" & h & ":AL" & h2)
For j = 1 To UBound(arr, 2)
lx = 0
    For i = 1 To UBound(arr)
        If WorksheetFunction.IsNA(arr(i, j)) Then
            lx = lx + 1
        Else
            lx = 0
        End If
        arr(i, j) = lx
    Next
Next
Range("AN:AW").ClearContents
Range("AN" & h & ":AW" & h2) = arr
End If
End Sub

LSYYLW

longwin 发表于 2024-6-22 16:12
加上红色的一句：

再次感谢老师，让您受累了。