Excel代码问题，非常感谢!

LSYYLW

2024-5-18.zip (2.61 KB, 下载次数: 6)

2024-5-18 11:13 上传

点击文件名下载附件

半百

B1的数值有什么用？除了改变它时触发代码运行，是1是9有和区别？
B1变化时D33往上输入了提取的数字，第二次变化后提取的数字覆盖上次的吗？

LSYYLW

半百 发表于 2024-5-18 11:46
B1的数值有什么用？除了改变它时触发代码运行，是1是9有和区别？
B1变化时D33往上输入了提取的数字，第二 ...

非常感谢老师，B1里的数字只做触发代码运行用，是什么数字没有区别，当B3到B33里的数字有变动后，B1里的数字转换后，覆盖D33及以上之前显示过的数字，拜托了！

cidanji

ooluckydog

quqiyuan

quqiyuan

参与一下
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$B$1" Then
        arr = Me.[b3].CurrentRegion
        ReDim brr(1 To 1)
        For i = UBound(arr) To 1 Step -1
            If arr(i, 1) = 0 Then
                m = m + 1
                ReDim Preserve brr(1 To m)
                brr(m) = arr(i, 1)
            Else
                If arr(i + 1, 1) = 0 And i < UBound(arr) Then m = m + 1: ReDim Preserve brr(1 To m): brr(m) = arr(i, 1)
            End If
            If i = 2 Then If arr(i - 1, 1) = 0 And arr(i, 1) <> 0 Then Exit For
        Next
    ReDim crr(1 To UBound(brr), 1 To 1)
    For i = UBound(brr) To 1 Step -1
        n = n + 1
        crr(n, 1) = brr(i)
    Next
    Me.Range("d3:d33").ClearContents
    Me.Cells(33 - UBound(crr) + 1, 4).Resize(UBound(crr)) = crr
    End If
End Sub

LSYYLW

cidanji 发表于 2024-5-18 12:46

非常感谢老师，代码非常好用。

LSYYLW

ooluckydog 发表于 2024-5-18 13:10

非常感谢老师，代码非常好用。

LSYYLW

quqiyuan 发表于 2024-5-18 14:05

非常感谢老师，代码非常好用。