www.5129.net > ExCEl vBA计算单元个数 1、找出A列最后一行,有多...

ExCEl vBA计算单元个数 1、找出A列最后一行,有多...

i = 0 For Each c In Range("a" & [a1048576].End(xlUp).Row & ":bz" & [a1048576].End(xlUp).Row) If c.Interior.ColorIndex <> -4142 Then i = i + 1 Next [b2] = "【" & i & "】"

range("A65536").end(xlup).offset(1)'A列有数据的最后一个单元格下一个range("A65536").end(xlup)'指A列最后一个有数据的单元格你要写入最后的下一行就用第一个要替换最后一个有数据的单元格就用后一个.

一般有两个方法,一是使用ActiveSheet.UsedRange,这个表示所有已经使用的区域,一般可以赋值给数组完成所有数据的读取,也可以使用ActiveSheet.UsedRange.Rows.Count和ActiveSheet.UsedRange.Columns.Count获得区域的行列数量.另外,可以使用End获得某行(或者某列)最后一个数据,例如需要获得A列最后一个数据所有在行可以用:ActivceSheet.Cells(ActivceSheet.Rows.Count,1).End(XlUp).Row

最后一列 [IU1].END(1).COLUMN 最后一行[A65536].end(3).row 再看看别人怎么说的.

用do while 语句 例如统计A列用的行数:n=1 do while range("A"&n)<>"" HangShu=n n=n+1 loop

首先在Sheet2中选定A1:A5共5个单元格的区域或者更多单元详情>>2 execl匹配条件问题 回答 2 3 如何批量提取多个excel文件里sheet1的第一行? 回答 2 4 Excel VBA 回答 2 5 Excel若SHEET1 A列 符合

Sub 按钮1_单击()Dim a%, c%, l% For a = 1 To Application.CountA([a:a]) Set b = Cells(a, 1) c = Len(b) l = l + c Next a Range("b1") = lEnd Sub我用工作表函数做了,结果也为11550个字符,和VBA代码的结果完全相符.

Sheet1.[A65536].End(3).Row计算Sheet1的A列数据的最末行的行号.

为什么要用VBA ?不能用公式吗?向下累计是什么意思?C列=数据表B中的 ?列?A、B数据表 各有多少列A1 =表B!A1 向下复制……B1 =表B!D1 向右 向下复制……你这样做 其实就是 把表B的B、C两列去掉……

如果是求A列非空单元格个数(也就是有数据的行数)可以参考代码:for i=1 to range("A65536").end(3).rowif cells(i,1)<>"" thenk=k+1end ifnextmsgbox "A列有"&k&“行数据”

网站地图

All rights reserved Powered by www.5129.net

copyright ©right 2010-2021。
www.5129.net内容来自网络,如有侵犯请联系客服。zhit325@qq.com