excel中用宏excel批量删除行特定列

来源：蜘蛛抓取(WebSpider) 时间：2015-09-25 02:31 标签： excel批量删除图片
Excel技巧：如何批量删除同列单元格中最后一个字符
Excel中如何批量删除同列单元格中最后一个字符
=LEFT(A1,LEN(A1)-1)
Excel 中将负号从数字后移到数字前
=IF(RIGHT(A2,1)="-",VALUE("-"&LEFT(A2,LEN(A2)-1)),VALUE(A2))
■我的EXCEL技巧系列■
已投稿到：
以上网友发言只代表其个人观点，不代表新浪网的观点或立场。您还未登陆，请登录后操作！
Excel 删除数值为0的行的问题
A代码，如果能用VB程序来删就更好了
代码大致是这样的，附件里面还做了一个窗体，请查看
Sub DELETEZERO()
For i = 2 To 24
If Range("A" + CStr(i)).Value && 0 Then
If Range("B" + CStr(i)).Value = 0 And Range("D" + CStr(i)).Value = 0 Then
Rows(i).Delete
<img class="piczoom mpic" alt="代码大致是这样的，附件里面还做了一个窗体，请查看
Sub DELETEZERO()
For i = 2 To 24
If Range("A" + CStr(i)).Value
If Range("B" + CStr(i)).Value = 0 And Range("D" + CStr(i)).Value = 0 Then
Rows(i).Delete
" src="/fimg//15/46/00/..xls_240.jpg" data-artzoom-show="/fimg//15/46/00/..xls_516.jpg" data-artzoom-source="/fimg//15/46/00/..xls_516.jpg" />
A代码或VB程序来复杂来处理呢，凡事高效为先。
把三列都为0筛选出来，删掉就OK了，附件实现效果
您的举报已经提交成功，我们将尽快处理，谢谢！
大家还关注您还未登陆，请登录后操作！
请问在excel电子表格中怎样批量删除偶数行？
新建一列，第一行输入1，第2行输入2，第3行输入1，第4行输入2，选快速输入直至底部，使这一列呈1、2、1、2样，选中菜单项数据-筛选，在新建的那列上选择筛选1或2(是偶数的那个数），删除之，并取消筛选即可。
L电子表格后面填一列，这列从1开始编号。（怎么编号？帮人帮到底，我继续告诉你：这列的第一行输入1，第二行输入算式（假设你编号的列是第y列）&=y1+1&，以下的行都用下拉的方式（就是点上一个网格的右下角，向下拖，就能复制公式到每一个网格）设成上一行＋1。这样就完成一列的编号了。
好了，在编号的列后面再加一列（假设是Z列，下面用*号代替行号）这列的每行的值设为&＝mod(z*, 2 )&，就是取Y列对应行的值模二（就是除以2的余数）。把每行都这么设置好。
现在，Z列是由0和1组成的一列数字。其中，取值为0的行是偶数行，取值为1的是奇数行。那么，怎么删偶数行呢？
聪明的你也许已经想到方法了，我这里重复说一下吧。
只要利用EXCEL的排序功能，按照Z列对表格进行排序，则所有取值为0(就是偶数行）都排在奇数行前面，我们从最后一个偶数
&补充说明：
有人说我的方法不简便，这是误解。我的篇幅大，那是为了详细说明。但是实际操作非常容易简单，不用逐个设置，基本上能处理所有的类似需要。如果表格有1000行的话，别的办法基本上就不行了,是不是？
&
这个问题容易。
你先在你的EXL电子表格后面填一列，这列从1开始编号。（怎么编号？帮人帮到底，我继续告诉你：这列的第一行输入1，第二行输入算式（假设你编号的列是第y列）&=y1+1&，以下的行都用下拉的方式（就是点上一个网格的右下角，向下拖，就能复制公式到每一个网格）设成上一行＋1。这样就完成一列的编号了。
好了，在编号的列后面再加一列（假设是Z列，下面用*号代替行号）这列的每行的值设为&＝mod(z*, 2 )&，就是取Y列对应行的值模二（就是除以2的余数）。把每行都这么设置好。
现在，Z列是由0和1组成的一列数字。其中，取值为0的行是偶数行，取值为1的是奇数行。那么，怎么删偶数行呢？
聪明的你也许已经想到方法了，我这里重复说一下吧。
只要利用EXCEL的排序功能，按照Z列对表格进行排序，则所有取值为0(就是偶数行）都排在奇数行前面，我们从最后一个偶数行开始向前选择所有的行删掉所有的偶数行，剩下的就是奇数行了。
这个方法删奇数行、三倍数行等等都可以。
呵呵，这个方法好不好？
如果喜欢，选择我的答案啊。
欢迎访问我的BLOG：
116.52.155.*
这个答案实用啊
221.10.195.*
我试了一下，如何行很多输入行1，2的编号还是很麻烦的你们说这样行不：新建一列，在第一行输入字母a，第二行输入字母b(当然也可是其它的），然后就可快速输入，再用数据的筛选功能，就能很快的搞定。
坦克就是厚重。简单问题没必要这么复杂化呀，呵呵。
老肉的方法是手工，我的方法全自动啊。
不如老肉 的方法简便
您的举报已经提交成功，我们将尽快处理，谢谢！
大家还关注求助:批量删除多个表中的指定列_excel吧_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0成为超级会员，使用一键签到本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：82,807贴子：
求助:批量删除多个表中的指定列收藏
工作中遇到一个问题.在此求教与各位大神我有300个EXCEL表,每个表的格式都是相同的.我现在需要将这300个表中的A、B、C三列删除。请问有没有便捷的方法？
先点第一张表，然后按住SHIFT键，点最后一张表，这样就选重了所有的表格，然后按选重任一张表中的ABC三列，删除，这样所有的都删了。
我表述的有问题,在本吧应该说术语:工作薄.这三百个表格是独立的表格,并不是一个工作薄中的多个SHEET.所以按您所说的,怕是行不通.
在网上找了一个新建或随便打开一个工作簿，按住ALT，依次按F11、I、M，粘贴下面的代码，按F5执行。注意，为了避免意外损失，请将要处理的文件备份一份。Sub test()Application.DisplayAlerts = FalseApplication.ScreenUpdating = FalseP = "E:\新建文件夹\"
'假设文件所在的文件夹F = Dir(P & "*.xlsx")
'如果是2003版的，请改为""*.xls"DoWorkbooks.Open (P & F)Workbooks(F).Worksheets(1).Columns("A:C").Delete
'这里假设每个工作簿里只处理一个工作表，且该表在最左边。Workbooks(F).Close TrueF = DirLoop Until F = ""Application.ScreenUpdating = TrueApplication.DisplayAlerts = TrueEnd Sub
试了一下,没好使....
我看了两天的宏入门Sub test()
(创建宏,名字叫"test"?)Application.DisplayAlerts = False
(关闭警告信息)Application.ScreenUpdating = False
(关闭自动更新)P = "E:\新建文件夹\" '假设文件所在的文件夹
(将该文件夹定义为P,简化操作用的)F = Dir(P & "*.xlsx") '如果是2003版的，请改为""*.xls"(相当于搜索文件,在P内搜索全部含XLSX结尾的文件,并定义为F)Do (开始做了?)Workbooks.Open (P & F)
(打开这些工作表)Workbooks(F).Worksheets(1).Columns("A:C").Delete '这里假设每个工作簿里只处理一个工作表，且该表在最左边。
(应该是打开后删除A-C列内容)Workbooks(F).Close True
(关闭保存?)F = Dir
(这句和下面这句没看懂)Loop Until F = ""Application.ScreenUpdating = True (打开警告信息)Application.DisplayAlerts = True
(打开更新)End Sub
登录百度帐号推荐应用
为兴趣而生，贴吧更懂你。或

我要回帖

更多关于 excel批量删除图片 的文章

 

随机推荐