资源描述：
《应用Excel VBA 处理Excel表数据》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、应用ExcelVBA处理Excel表数据——筛选删除不需要的行背景：今天写论文，用Origin绘制主梁线形图，有5条线对比分析，发现关键点太密了，根本看不清小方块、圆、叉等这些标志，为了看清楚，只好删除掉一些节点位移，保留像跨中、端点、1/4节点等这样的关键点。但是一行一行删除太麻烦了，于是在Excel中用VBA编了下面这段代码来自动处理，以后如遇到此情况就可以直接用了，免去一行一行的删除了。源代码：Sub删除不需要行的数据() Application.ScreenUpdating=False'关闭屏幕刷新，这
2、个可有可无，为了节约时间 DimrAsInteger,iAsInteger DimmyrangeAsRange i=1 Setmyrange=ActiveSheet.UsedRange r=myrange.Rows.Count’获取自己worksheet中行的数量 MsgBox"删除前共"&r&"行" 'n=ActiveWorkbook.Worksheets.Count DoWhilei<=r’对所有数据行进行判定处理 SelectCaseCells(i,1)'Cells(i,1)以第一列数据位判别标准，可
3、根据情况自己设定，我的第一列为1到295的数字 Case1,4,9,14,19,24,27,28,29,32,38,44,51,52,53,60,66,72,74,76,77,80,86,92,99,100,101,104,110,116,123,124,125,128,134,140,147,149,171,173,177,183,189,195,197,204, 210,216,219,220,221,227,233,239,243,244,245,249,255,261,267,268,269,
4、272,277,282,287,292,295（想要的行的节点号） i=i+1'如不做处理转到下一行 CaseElse Rows(i).Delete r=r-1'若删除一行则需要判别的行数减少一行 EndSelect Loop Application.ScreenUpdating=TrueMsgBox"删除后共"&r&"行"EndSub打开文件，在查看宏里边找到上边的这个宏，执行之后就得到你想要的结果了绘制曲线：从图中可以看出，节点数明显减少，结果比原来
5、清晰多了，可以看到标志了，同时曲线也不如以前圆滑了（缺点）！收工（BJLHB）！
