怎么根据字体颜色提取？

[sujian2004515]

文件中的数据有两种颜色，我现在想把黑色的数据全部删除，有什么快的方法用个什么语句什么的一下全部删除掉呢？？

[sujian2004515]

把上面的语句在命令行中运行就可以吗?我怎么弄不出来呢!请指教一下吧!谢谢拉!

[ljc007]

//把上面的语句在命令行中运行就可以吗?

不可以
建议google一下“怎样在excel中使用VBA代码”

[sujian2004515]

没有人看吗?

[ChinaOBS]

Public Sub ss()
Dim Rng As Range
For Each Rng In Range("a1:f10")
If Rng.Font.ColorIndex = 1 Or Rng.Font.ColorIndex = -4105 Then Rng.ClearContents
Next
End Sub

[sujian2004515]

我会执行了谢谢!

[sujian2004515]

还有个问题哈哈,上面的完成后单元格能不能自动上移?不要空着的??