比如，在单元格区域C1:C10中，有的单元格含有公式，有的单元格没有公式（可能有数据，也可能为空）。我需要用VBA代码来判断这些单元格中哪个单元格有公式，哪个单元格无公式，并在D1:D10区域相应的单元格返回判断结果“有”或“无”。
可以用如下
代码
来得到
Sub
mc1()
Dim
i%,
en%
en
=
[C65536].End(3).Row
For
i
=
1
To
en
If
Cells(i,
"C").HasFormula
Then
Cells(i,
"D")
=
"有"
Else
Cells(i,
"D")
=
"无"
End
If
Next
End
Sub
申明一点你表中手工判断的结果是不对，C列都是有
公式
的，这个你可以再去查看一下。具体见
附件
。
附件：判断单元格中是否有公式(1).xls
代码
来得到
Sub
mc1()
Dim
i%,
en%
en
=
[C65536].End(3).Row
For
i
=
1
To
en
If
Cells(i,
"C").HasFormula
Then
Cells(i,
"D")
=
"有"
Else
Cells(i,
"D")
=
"无"
End
If
Next
End
Sub
申明一点你表中手工判断的结果是不对，C列都是有
公式
的，这个你可以再去查看一下。具体见
附件
。
附件：判断单元格中是否有公式(1).xls
温馨提示：答案为网友推荐，仅供参考
