<em>vba</em> 清空<em>excel</em>内容-exce

Sub s()
    ctou = 3
    Dim d(1 To 6) As Object, c(1 To 4) As String, t As Range
    For i = 1 To 6
        Set d(i) = CreateObject("scripting.dictionary")
    Next
    If ctou = 3 Then
        For Each t In [l1:dz3]
            If Len(t) = 4 Then
                For i = 1 To 4
                    c(i) = Mid(t, i, 1)
                Next
                For i = 1 To 4
                    tt = ""
                    For j = 1 To 4
                        If j <> i Then tt = tt & c(j)
                    Next
                    d(i)(tt) = ""
                Next
            End If
        Next
        For Each t In [a39:j1038]
            If Len(t) = 4 Then
                For i = 1 To 4
                    c(i) = Mid(t, i, 1)
                Next
                For i = 1 To 4
                    tt = ""
                    For j = 1 To 4
                        If j <> i Then tt = tt & c(j)
                    Next
                    If d(i).exists(tt) Then
                        t = ""
                        Exit For
                    End If
                Next
            End If
        Next
    ElseIf ctou = 2 Then
        For Each t In [l1:dz3]
            If Len(t) = 4 Then
                For i = 1 To 4
                    c(i) = Mid(t, i, 1)
                Next
                k = 1
                For i = 1 To 3: For j = i + 1 To 4
                    tt = c(i) & c(j)
                    d(k)(tt) = ""
                    k = k + 1
                Next: Next
            End If
        Next
        For Each t In [a39:j1038]
            If Len(t) = 4 Then
                For i = 1 To 4
                    c(i) = Mid(t, i, 1)
                Next
                k = 1
                Do
                For i = 1 To 3: For j = i + 1 To 4
                    tt = c(i) & c(j)
                    If d(k).exists(tt) Then
                        t = ""
                        Exit Do
                    End If
                    k = k + 1
                Next: Next
                Loop Until k > 6
            End If
        Next
    End If
End Sub

1. 在excel中，按来Alt+F11，在左侧导航栏点击右键→插入源→模块。在右侧输入代码：

   Sub 清除百()
       Sheets(2).Cells.ClearContents
   End Sub
   

2. 在表格中，点击插入→形状→度矩形，并在表格中添加，添知加之后，在形状中点击右键→指定宏→道清除。
   

Sub 清除百()
For k = 1000 To 60 Step -1
    If (Cells(k, 1) = -5 And Cells(k, 2) = 80) Or (Cells(k, 1) = 25 And Cells(k, 2) = 64) Then
        Cells(k, 1).EntireRow.ClearContents
    End If
Next
End Sub

功能区域度为版第60-1000行。权

Excel中可以利用range的clearcontents方法，将区百域内的内容删除。度

软件版本：Office2007

举例说明如下：问

1.利用VBA将有答底色的区域的内容删除掉：

2.Alt+F11，输专入代码如下：

3.F5执行代码，返回Excel，可以看到原来的内容已属经被删除掉了：