请问如何在vba用counta统计动态单元格个数？

babycc · 发表于 2011-2-28 21:38

请问如何在vba用counta统计动态单元格个数？

如题。。。

我的工作薄里有N张表。。每张表的第五行的单元格数量都不一样。。

我要在vba里写句代码，能在活动的单元格的最后一列的单元格统计出第五行的单元格数量。。

请高手帮帮忙。。。。

[ 本帖最后由 babycc 于 2011-2-28 21:41 编辑 ]

lu_zhao_long · 发表于 2011-2-28 21:48

原帖由 babycc 于 2011-2-28 21:38 发表
请问如何在vba用counta统计动态单元格个数？

如题。。。

我的工作薄里有N张表。。每张表的第五行的单元格数量都不一样。。

我要在vba里写句代码，能在活动的单元格的最后一列的单元格统计出第五行的单元格数 ...

不知道楼主到底要统计什么？要知道，COUNTA 函数是统计指定区域内非空单元格数！如果想得到最后一个单元格的位置，使用这个函数并不合适！

mn860429 · 发表于 2011-2-28 21:59

end(xltoleft)可以不

gufengaoyue · 发表于 2011-2-28 22:32

楼主是想得到第5行向边最后一个非空单元格吗？
[iv5].End(xlToLeft).Address

babycc · 发表于 2011-3-1 10:19

原帖由 gufengaoyue 于 2011-2-28 22:32 发表
楼主是想得到第5行向边最后一个非空单元格吗？
.End(xlToLeft).Address

我想统计出R5C3向右边的最后一个非空单元格的个数。。。
我每张表的的第五行个数都不一样的~
应该如何统计吖？

babycc · 发表于 2011-3-1 10:20

原帖由 lu_zhao_long 于 2011-2-28 21:48 发表

不知道楼主到底要统计什么？要知道，COUNTA 函数是统计指定区域内非空单元格数！如果想得到最后一个单元格的位置，使用这个函数并不合适！

如果要得到最后一个单元格的位置应该如何定位吖？？？
我想统计出R5C3向右边的最后一个非空单元格的个数。。。
我每张表的的第五行个数都不一样的~所以定位不了。。
应该如何统计吖。。。。

lu_zhao_long · 发表于 2011-3-1 19:14

原帖由 babycc 于 2011-3-1 10:20 发表

如果要得到最后一个单元格的位置应该如何定位吖？？？
我想统计出R5C3向右边的最后一个非空单元格的个数。。。
我每张表的的第五行个数都不一样的~所以定位不了。。
应该如何统计吖。。。。

试试看。2003 及 2007 下均可用！
With ActiveSheet
.Cells(5, .Cells.Columns.Count).End(xlToLeft).Offset(0, 1) = Application.WorksheetFunction.CountA(.Range(.Cells(5, 3), .Cells(5, .Cells.Columns.Count).End(xlToLeft)))
End With

[ 本帖最后由 lu_zhao_long 于 2011-3-1 19:15 编辑 ]

babycc · 发表于 2011-3-1 22:19

原帖由 lu_zhao_long 于 2011-3-1 19:14 发表

试试看。2003 及 2007 下均可用！
With ActiveSheet
.Cells(5, .Cells.Columns.Count).End(xlToLeft).Offset(0, 1) = Application.WorksheetFunction.CountA(.Range(.Cells(5, 3), .Cells(5, .Cells.Columns ...

我也使用了这种.下午已经能解决了..谢谢您~
但是还有一个问题就是我以上代码统计了的个数出来不能写进if公式里.是什么原因呢?应该如何修改吖?

j = ActiveSheet.Cells(5, 255).End(xlToLeft).Column + 1
         ActiveSheet.Cells(5, j) = j - 3

         With Application

         ActiveSheet.Cells(6, j) = "=IF(Application.WorksheetFunction.CountA(Range(Cells(6, 3), Cells(6, j - 1))) = j - 3,""OK"",""NG"")"

         End With

lu_zhao_long · 发表于 2011-3-2 21:00

原帖由 babycc 于 2011-3-1 22:19 发表

我也使用了这种.下午已经能解决了..谢谢您~
但是还有一个问题就是我以上代码统计了的个数出来不能写进if公式里.是什么原因呢?应该如何修改吖?

j = ActiveSheet.Cells(5, 255).End(xlToLeft).Column + 1 ...

两种方式是不一样的！
我使用的方法是通过调用 EXCEL 自身的 COUNTA 函数，然后将计算得到的结果赋值给某个单元格。而楼主想给某个单元格填入公式。所以生搬硬套是不对的。
根据楼主的要求，可以使用如下的代码：
j = ActiveSheet.Cells(5, 255).End(xlToLeft).Column + 1
ActiveSheet.Cells(5, j) = j - 3

ActiveSheet.Cells(6, j).Formula = "=IF(CountA(" & Cells(6, 3).Address & ":" & Cells(6, j - 1).Address & ") =" & j - 3 & ",""OK"",""NG"")"

babycc · 发表于 2011-3-3 17:07

原帖由 lu_zhao_long 于 2011-3-2 21:00 发表

两种方式是不一样的！
我使用的方法是通过调用 EXCEL 自身的 COUNTA 函数，然后将计算得到的结果赋值给某个单元格。而楼主想给某个单元格填入公式。所以生搬硬套是不对的。
根据楼主的要求，可以使用如下的代码： ...

能解释一下为什么要用Formula ，为什么单元格的多了那么有&的符号吖？

		自动登录	找回密码
密码			免费注册

[求助] 请问如何在vba用counta统计动态单元格个数？