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