[已解决]怎样根据图中有颜色单元格里的文字，添加语句才能实现新的条件？

lsyylw

2023-5-27---.zip (59.1 KB, 下载次数: 1)

2023-5-27 11:41 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

zjdh

2023-6-2 09:22

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Target.Address = "$BZ$1" And Target >= 4 Then
        arr = Range("bx60:bx7261")
        x = Target
        ReDim brr(1 To UBound(arr), 1 To 1)
        For i = UBound(arr) - x + 1 To 1 Step -x
            brr(UBound(arr) - n, 1) = arr(i, 1)
            n = n + 1
        Next
        Range("bz60:bz7261") = brr
    End If
End Sub

跳转到最佳答案楼层

zjdh

将 If Target.Address = "$BZ$1" Then
改成 If Target.Address = "$BZ$1" And Target >= 4 Then

lsyylw

zjdh 发表于 2023-5-28 13:23
将 If Target.Address = "$BZ$1" Then
改成 If Target.Address = "$BZ$1" And Target >= 4 Then

非常感谢老师，我测试了一下，不知什么原因没有成功，老师您有时间再帮我看看，拜托了！

zjdh

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Target.Address = "$BZ$1" And Target >= 4 Then
        arr = Range("bx60:bx7261")
        x = Target
        ReDim brr(1 To UBound(arr), 1 To 1)
        For i = UBound(arr) - x + 1 To 1 Step -x
            brr(UBound(arr) - n, 1) = arr(i, 1)
            n = n + 1
        Next
        Range("bz60:bz7261") = brr
    End If
End Sub