EXCEL难题!高手帮忙解决!(200分)~~
来源:百度知道 编辑:UC知道 时间:2024/05/02 20:20:38
楼主,请您仔细看 "回答者: jax_pqihou - 秀才 二级" 这个人说的。
您这些标黄色的格子,不就是 期初应收款,本期增加应收款,本期承收应收款 这三项同时为零的数吗? 用自动筛选 选出这三项为0.00的数就是全部标黄色的数据。删除之不就行了?删完按客户编码排一下序就可以了。
假设数据在A至E列,用辅助列F来做,在F1输入“代码”二字作为字段名,再选中F2,按以下步骤:
1.点插入→名称→定义,弹出的窗口第一行名称名内写入一个自定义的名称名字,可以是中文也可以是英文,比如XX,最下边一行的引用位置一行内填入:
=get.cell(63,A1) 确定。
2.在F2中输入 =XX 确定
选中F2,光标移到F2单元格右下角的小黑点,光标变成小黑实心十字时,双击左键。完成填充。
这样操作以后,在F列中会出现单元格中底色的代码(黄色为6)。
3.再以F列对代码6进行筛选。
4.将筛选出来的删除就是你要的结果了。
利用后边辅助列,输入公式
=IF(SUM(B2:D2)=0,"删除","")
往下拉.
然后自动筛选,再删除.
不是很困难啊....
我觉得楼主是否需要将题目要求再明确一下?
原题只说要把“画黄色线”的栏目删除。虽然我们可以从附图中观察出数据为0的表行都为黄色的规律,但是我们看到的是否完整的数据?或许有其它数据不为0但是仍然是黄色的表行?
所以,如果要严格满足楼主要求删除“画黄色线的栏目”的话,可以用下面这个宏试试看:
Sub DeleteAllYellowRows()
Dim oRangeCombined As Range
Dim oRangeFound As Range
Dim strFirstAddress As String
Application.FindFormat.Clear
Application.FindFormat.Interior.Colo