求助<em>vba</em>中<em>count</em>if方法的列变

Count是“集”对象的一种属百性，代表集包度括的对象个数。问
Application.Worksheets.Count——答表示活动工作专簿中工作表的个数
Application.Worksheets(Application.Worksheets.Count).name——表示活动工作簿中最后一个工属作表的名称

方法一zhidao：专
Cells(i, 4) = "=countif(range(cells(2," & j + 2 & ") : cells(268," & j + 2 & "),cells( " & i & ",3))"
方法二：属
Cells(i, 4) = Application.WorksheetFunction.CountIf(Range(Cells(2, j + 2), Cells(268, j + 2)), Cells(i, 3))

1、同时按下“win+R”键，在百打开的运行对话框中输入“excel”回车，打开一个新建度的excel文档。

2、在打开的excle窗口，依次点击工具栏“知开发工具”——“Visual Basic”或直接按快捷键“ALT+F11”,打开VB编辑器。

3、双击左侧工程窗口中的“sheet1”，打开“道sheet1”代码内编辑窗口。

4、在代码窗口的下拉框中，分别选择“Worksheet”、"SelectionChange",下面会自动生成相应的过程块代码。

5、在过程中写入代码：

If (Target.Columns.Count = Sheet1.Columns.Count) And (Target.Row <= Range("b4").Row) And (Target.Row + Target.Rows.Count > Range("b4").Row) Then

MsgBox "yes"   

Else    

MsgBox "no"    

End If

6、再回到excel窗口，测试一下代码是否能容够正确运行，可以看到结果很成功。

更简单的写法：
Text4= Val(Text1) + Val(Text2) + Val(Text3)
空输百入的话直接转换成0，不必担心，不存在一个需要count的问题
顺便说说，我在连接度sheet表内同行的几个连续单元知格的时候道写过版一个自定义函数（excel自带的方法就是A1&A3&A3...单元格多的话太麻烦），就是接受一个range参数，然后将权range内的几个单元格字串连接起来，这里面同样需要统计有效的输入单元格，这时候用过count(),在vba里用的话就是WorksheetFunction.Count(“”)