[已解决]过程不能执行

zsx720629

sub test（rng as range)
Dim rng As Range
If rng Is Nothing Then
Cells.ClearFormats
Else
rng.ClearFormats
end if
end sub
这个过程为什么不能执行呢

最佳答案

月排行榜 / 总排行榜

jy854509

2011-12-6 10:57

sub test（rng as range)
把这句去掉就行了，还有一个问题

  Cells.ClearFormats
这个是清除所有格式，

跳转到最佳答案楼层

菜鸟锐

不懂代码。帮你顶一下~~

jy854509

sub test（rng as range)
把这句去掉就行了，还有一个问题

  Cells.ClearFormats
这个是清除所有格式，

高

Sub text()
Dim rng As Range
For Each rng In Range("a1", "a10")
If rng Is Nothing Then
Cells.ClearFormats
Else
rng.ClearFormats
End If
Next
End Sub
你的代码有两个问题，1、第一行Sub text()的括号中应该是空的
2、你没指定rng的范围，即不知道rng指哪些单元格。

高

看着你的意思是清除单元格格式，如果清除所有单元格的格式，下面的代码就行了
Sub text()
Cells.ClearFormats
End Sub