Excel代码问题，非常感谢！

LSYYLW

2024-11-22--.zip (3.62 KB, 下载次数: 2)

2024-11-20 14:53 上传

点击文件名下载附件

quqiyuan

参与一下，仅供参考，，，

quqiyuan

代码如下，，，，
Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    If Target.Address = "$U$1" Then
        arr = [k11:k110]
        ReDim brr(1 To UBound(arr), 0)
        n = 0
        For i = 1 To UBound(arr)
            If IsNumeric(arr(i, 1)) Then
                n = n + 1
                brr(n, 0) = arr(i, 1)
            End If
        Next
        [u2:u102].ClearContents
        Cells(102 - n + 1, "u").Resize(n) = brr
        Beep
    End If
    Application.EnableEvents = True
End Sub

LSYYLW

quqiyuan 发表于 2024-11-20 15:46
参与一下，仅供参考，，，

再次感谢老师，代码非常非常好用，让您受累了。

LSYYLW

2024-11-22---.zip (14.49 KB, 下载次数: 3)

2024-11-20 17:14 上传

点击文件名下载附件

LSYYLW

quqiyuan 发表于 2024-11-20 15:47
代码如下，，，，
Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents  ...

老师您好：又来麻烦您了，本版的问题我忘了说一个条件了，还得麻烦老师您抽出宝贵的时间帮我解决一下，附件在5楼，拜托您了！

LSYYLW

quqiyuan 发表于 2024-11-20 15:47
代码如下，，，，
Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents  ...

抱歉老师，发错附件了，麻烦您重新看一下5楼里的附件，拜托您了！

quqiyuan

LSYYLW 发表于 2024-11-20 17:16
抱歉老师，发错附件了，麻烦您重新看一下5楼里的附件，拜托您了！

quqiyuan

代码如下，，，，
Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    If Target.Address = "$U$1" Then
        arr = [k11:k110]
        ReDim brr(1 To UBound(arr), 0)
        n = 0
        For i = 1 To UBound(arr)
            If IsNumeric(arr(i, 1)) Then
                n = n + 1
                brr(n, 0) = arr(i, 1)
            End If
        Next
        [u2:u102].ClearContents
        If n > 0 Then Cells(102 - n + 1, "u").Resize(n) = brr
        Beep
    End If
    Application.EnableEvents = True
End Sub

LSYYLW

quqiyuan 发表于 2024-11-20 17:21

再次感谢老师，代码非常非常好用，让您受累了。