[已解决]修改代码，更进一步！

sampsonpon · 发表于 2015-5-24 00:03

请哪位能帮我修改一下代码？
请加一段自动删除内容的代码，要求在每次要即将得到新结果时先擦除旧的内容。
谢谢！

最佳答案

月排行榜 / 总排行榜

xdragon

2015-5-24 12:57

FYI

跳转到最佳答案楼层

七彩屋 · 发表于 2015-5-24 08:00

附件没上传啊

Sub 清空指定区域的内容()
[A4:B10].ClearContents
End Sub
'你的要加上变量区域

复制代码

sampsonpon · 发表于 2015-5-24 10:29

七彩屋发表于 2015-5-24 08:00
附件没上传啊

sorry!昨晚忘了插入附件了。现传附件。谢谢！

xdragon · 发表于 2015-5-24 12:57

七彩屋 · 发表于 2015-5-24 13:06

sampsonpon 发表于 2015-5-24 10:29
sorry!昨晚忘了插入附件了。现传附件。谢谢！

E9输入去重复公式
=IF(ROW(1:1)>ROUND(SUM(1/COUNTIF($A$2:$A$5596,$A$2:$A$5596)),0),"",INDEX($A$2:$A$5596,SMALL(IF(MATCH($A$2:$A$5596,$A$2:$A$5596,0)=ROW($A$2:$A$5596)-1,ROW($A$2:$A$5596)-1),ROW(1:1))))
数组公式,按CTRL+SHIFT+ENTER结束
下拉填充

F9输入提取对应的最小值
=MIN(IF(A2:A5596=E9,B2:B5596))
数组公式,按CTRL+SHIFT+ENTER结束
下拉填充

七彩屋 · 发表于 2015-5-24 13:07

Book1.rar (53.7 KB, 下载次数: 4)

sampsonpon · 发表于 2015-5-24 20:26

xdragon 发表于 2015-5-24 12:57
FYI

不错！正是我想要的结果！谢谢您！

		自动登录	找回密码
密码			注册