<em>Excel</em> <em>vba</em> 清除本sheet

首先我们打开一个工作样表作为例子。

excel中使用vba清除e799bee5baa6e79fa5e98193e58685e5aeb9332工作表内容

使用alt+f11组合快捷键进入vbe编辑器，插入一个新的模块，并在模块中输入以下代码：

Option Explicit

Sub ddt()

'ActiveCell.CurrentRegion.Select

'Range(ActiveCell.End(xlUp), ActiveCell.End(xlDown)).Select

Range("A1").ClearContents '清除活动工作表上单元格A1中的内容

Selection.ClearContents '清除选定区域内容

Range("A1:D4").Clear

End Sub

excel中使用vba清除工作表内容

前两句代码是选择有数据内容的单元格，我做了注释标签，在代码中不运行。这里我先做一个简单的实例。使用range函数并选择了a1单元格，然后使用clearcontents命令来清除掉a1单元格中的内容。

excel中使用vba清除工作表内容

第二行代码是指选取单元格区域后运行宏，则清除掉所选区域的内容。

excel中使用vba清除工作表内容

最后一行代码更明晰，首先设定单元格区域为a1：d4，然后使用clear命令清除单元格包括格式在内的所有数据，这也是clear和clearcontents的区别。

excel中使用vba清除工作表内容

实际操作一下，我现在把单元格中的字体修改为华文琥珀，并将字号设置为72，这时候单元格格式发生了变化，我使用clearcontents对单元格进行清除内容并不会更改单元格的格式。

excel中使用vba清除工作表内容

而使用clear命令清除内容，单元格格式会恢复成默认值。

excel中使用vba清除工作表内容

Sub iii()
    For i = 1 To 65536
        For k = 1 To 256
            If i <> 1 Or k <> 1 Then Cells(i, k) = ""
        Next
    Next
End Sub

sub test()
dim jgarr(1 to 1000) as string
dim jgJs as integer
for each mycell in sheets（“copysheet1”）.cells
if mycell.font.color=? then '?绿色的色号 自己查一下
jgjs=jgjs+1
jgarr(jgjs)=mycell.text
endif
next mycell
'输出结果百
sheets("sheet2").activate
for i=1 to jgjs
cells(i,1)=jgarr(i)
next i
end sub
随手写了一下，没有调试度过

Public Sub 清除知本工作表道专()
    Worksheets("sheet1").UsedRange.ClearContents
End Sub

Public Sub 清除所有表属()
    Dim WS As Worksheet
    For Each WS In Worksheets
        WS.UsedRange.ClearContents
    Next
End Sub