tnfh.net
当前位置:首页 >> 如何用ExCEl VBA计算出shEEt1一个列有多少行(这个... >>

如何用ExCEl VBA计算出shEEt1一个列有多少行(这个...

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

1、按alt+F11打开vba编辑器; 2、输入以下代码 Sub 行()MsgBox "sheet1共有" & Sheet1.UsedRange.Rows.Count & "行记录。"End Sub3、点击运行。

Sub dd()Dim i, iii = ActiveSheet.UsedRange.Rows.Countii = ActiveSheet.UsedRange.Columns.CountMsgBox ("已使用行数:" & i & Chr(10) & "已使用列数:" & ii)End Sub

要获得最右边一列的序号,一般使用End,例如下面的语句查找第二行最后一列: Cells(2, Columns.Count).End(xlToLeft).Column 相当于,在第二行表格最大列按END+左到达的位置。

vba 取行数 Sheets(1).[A65536].End(xlUp).Row '''该列最后一行 vba 取列数 Cells(14, 256).End(xlToLeft).Column'''该14行最后一列

Sub tt() a = Sheets("1").UsedRange.Rows.Count b = Sheets("1").UsedRange.Columns.Count MsgBox a MsgBox b End Sub 主要用UsedRange.Rows

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

Excel中用VBA判断行数的方法: 1、VBA中可以用CurrentRegion.Rows.Count属性获得连续的数据区域的行数。 2、'选择A2单元格周围连续有数据的区域,并将其行数值赋予HROW3、HROW=Sheets("sheet1").[A2].CurrentRegion.Rows.Count

Sub 查找()For Each rng In Range("a1:d3") If rng = 7 Then a = rng.Row b = rng.Column End IfNextMsgBox "行号为" & a & "-" & "列号为" & bEnd Sub

Sub tt() Dim i As Integer For i = 1 To Sheet1.UsedRange.Rows.Count 'i赋值 走1 到sheet1有记录的行数 Sheet2.Cells(i, 1) = Application.WorksheetFunction.CountIf(Sheet1.Range("a" & i & ":j" & i), 20) '调用COUNTIF计算 用I 循环对应的...

网站首页 | 网站地图
All rights reserved Powered by www.tnfh.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com