有网友提供了如下代码：将现有的vba代码优化或改写都可以，只要达到效果就可以，要求附表有说明，且在每行代码右侧加上详细解释

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Row = 5 And Target.Column = 33 Then
    If Target.Value > 1 Or Target.Value < 0 Then Exit Sub

        arr = Sheet1.Range("g6").CurrentRegion
        i = UBound(arr, 2) + 5
        If Range("ag5") = 1 And i - 5 > 2 Then
            Range(Cells(6, i), Cells(34, i)).ClearContents
        End If
    End If
End Sub












[ 本帖最后由 dizha 于 2013-3-30 17:11 编辑 ]

vba不懂，帮顶