[已解决]谁帮我看看这个代码问题出在哪里

qq8945051

1. Sub 单击1() '工作表函数
   
2. i = Sheets("sheet2").Cells(Rows.Count, 1).End(3).Row
   
3. 
   
4. Sheets("sheet2").Range("e2") = Application.WorksheetFunction.CountIf(Sheets("sheet2").Range("B2:" & "B" & i), "><")
   
5. end sub

复制代码

求这句代码 还有其它方法实现么  
另第二句的 >< 这个符号代表什么意思 求解释

最佳答案

月排行榜 / 总排行榜

ppp710715

2014-6-26 15:44

1. Sub ppp()
   
2.   i = Sheets("sheet2").Cells(Rows.Count, 1).End(3).Row
   
3.   Sheets("sheet2").[b:b].SpecialCells(xlCellTypeBlanks).Select
   
4.   k = Selection.Cells.Count
   
5.   Sheets("sheet2").Range("e2") = i - k - 1
   
6. End Sub

复制代码

跳转到最佳答案楼层

ppp710715

1. Sub ppp()
   
2.   i = Sheets("sheet2").Cells(Rows.Count, 1).End(3).Row
   
3.   Sheets("sheet2").[b:b].SpecialCells(xlCellTypeBlanks).Select
   
4.   k = Selection.Cells.Count
   
5.   Sheets("sheet2").Range("e2") = i - k - 1
   
6. End Sub

复制代码

ppp710715

另第04句的 >< 这个符号代表 非空单元格

qq8945051

ppp710715 发表于 2014-6-26 15:44

太感谢老师了  完美解决  {:171:}{:171:}{:091:}

qq8945051

ppp710715 发表于 2014-6-26 15:45
另第04句的 >< 这个符号代表 非空单元格

非空 不是这个<>么

ppp710715

<>或><均可
不客气！