[已解决]能否判断单元格是否使用过

Select

在空表中的A1输入1，接着清除A1内容(1)。

现在，A1和其它单元格“看上去”一样，但对于usedrange.row.count有影响。

请问：能否判断单元格是否使用过？如果能，怎么判断啊，谢谢

最佳答案

月排行榜 / 总排行榜

mxg825

2011-9-30 12:45

If Application.CountA(Sheet1.UsedRange.Cells) = 0 Then '是否为空工作表 未使用

跳转到最佳答案楼层

mxg825

MsgBox Sheet1.UsedRange.Address  返回包含使用单元格的区域，

mxg825

If Application.CountA(Sheet1.UsedRange.Cells) = 0 Then '是否为空工作表 未使用

Select

1. 
   
2. Sub test1()
   
3.     Dim rng1, rng2, rng3
   
4.     Set rng1 = Sheet1.UsedRange
   
5.     Set rng2 = Range("A1")
   
6.     Set rng3 = Application.Intersect(rng1, rng2)
   
7.     If rng3 Is Nothing Then
   
8.         MsgBox "未使用过"
   
9.     Else
   
10.         MsgBox "使用过"
    
11.     End If
    
12. End Sub

复制代码

1. 
   
2. Sub test2()
   
3.     Dim x, s
   
4.     For Each x In Sheet3.UsedRange
   
5.         s = s & x.Address(0, 0) & ","
   
6.     Next x
   
7.     MsgBox s
   
8. End Sub

复制代码

1. Sub test3() 'mxg825
   
2.     If Application.CountA(Sheet1.UsedRange.Cells) = 0 Then    '是否为空工作表 未使用
   
3.         MsgBox "空工作表"
   
4.     Else
   
5.         MsgBox "不是工作表"
   
6.     End If
   
7. End Sub
   

复制代码

谢谢825！

看来，都得和usedrange属性打交道。发现个有趣情况：test1和test2对于A1单元格的判断，都显得无能为力。因为是空白工作表，EXCEL也认为A1单元格使用过。
test3是最简便的办法么{:041:}