Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 1618|回复: 3

请帮助___用宏批量删除非指定色字体t行数据

[复制链接]
发表于 2017-6-23 12:32 | 显示全部楼层 |阅读模式
本帖最后由 amanda_az 于 2017-6-23 12:35 编辑

说明:

1、A-N列,以行来看,会存在红色、黑色及自动字体,希望能用宏操作,一建删除:标题和红色字体以外的数据,其中标题一般为黑色或者自动自体,删除后自动保存。
2、由于需要进行这种操作的文件很多,而且经常会有这项工作,至少几百个,并且标题不一样,但sheet名一样,不知是否可以帮助设计成加载宏的形式,当需要的时候就去点一下就OK。当然,如果能设计成把这些文件统一放在同一个文件夹下,一次性操作更好。

3、数据列目前大概会有15列左右,每个文件的行是不确定的,少则几行

非常感谢!
批量删除非指定色数据.zip (8.1 KB, 下载次数: 2)
excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
发表于 2017-6-23 13:54 | 显示全部楼层
  1. Sub tt()
  2. Dim Ends&, i&, sh As Worksheet
  3. For Each sh In Sheets
  4.     Ends = sh.Cells(sh.Rows.Count, 1).End(3).Row
  5.     For i = Ends To 2 Step -1
  6.         If sh.Cells(i, 1).Font.Color <> vbRed Then
  7.             sh.Rows(i).Delete
  8.         End If
  9. Next i, sh
  10. End Sub
复制代码
回复

使用道具 举报

 楼主| 发表于 2017-6-26 12:45 | 显示全部楼层
回复

使用道具 举报

 楼主| 发表于 2017-6-26 17:36 | 显示全部楼层

谢谢亲,不知是否方便做成加载宏的形式?
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 06:50 , Processed in 0.446277 second(s), 10 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表