Excel代码问题，非常感谢！

LSYYLW

2024-10-18-.zip (7.36 KB, 下载次数: 2)

2024-10-18 08:42 上传

点击文件名下载附件

LSYYLW

quqiyuan 发表于 2024-10-17 15:35
代码如下。。。
Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents =  ...

老师您好：又来麻烦您了，您有时间帮我看一下11楼附件里的问题，帮我解决一下，拜托您了！

quqiyuan

LSYYLW 发表于 2024-10-18 08:44
老师您好：又来麻烦您了，您有时间帮我看一下11楼附件里的问题，帮我解决一下，拜托您了！

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

quqiyuan

代码如下。。。
Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    If Target.Address = "$Y$1" Then
        arr = [j12:s28]
        brr = [ae12:an28]
        For i = 1 To UBound(brr)
            For j = 1 To UBound(brr, 2)
                If IsNumeric(brr(i, j)) Then
                    arr(i, j) = brr(i, j)
                End If
            Next
        Next
        [ax8].CurrentRegion.ClearContents
        [ax8:bg24] = arr
    End If
    Application.EnableEvents = True
End Sub
   

LSYYLW

quqiyuan 发表于 2024-10-18 09:23
代码如下。。。
Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents =  ...

万分的感谢老师，代码非常好用，鲜花稍后为您献上。