cfnr.net
当前位置:首页 >> VBA 如何判断某ExCEl文件一共有多少行多少列 >>

VBA 如何判断某ExCEl文件一共有多少行多少列

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

你是意思是不是判断工作中已经 使用的最大 行数 工一个每一行都有数的列,加入是A列 excel2007及以上 n=thisworkbook.worksheets("sheet1").range("A1048576").end(xlup).row excel2003 n=thisworkbook.worksheets("sheet1").range("A65536").en...

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

iRows=activesheet.usedrange.rows.count iColumns=activesheet.usedrange.Columns.count '如果表格前面的几行或几列可能是空的,需要获得最下面的行数和最右面的列数: with activesheet.usedrange iEndRow=.rows.count+.row-1 iEndColumn=.Col...

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

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

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

A列最底端有数据的单元格 [a65536].end(xlup).row 如果是统计每列有多少非空单元格 就要调用COUNTA函数方便些 WorksheetFunction.CountA (Range("A:A"))

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

VBA如何取得EXCEL中的行数和列数_百度文库 http://wenku.baidu.com/link?url=tXdgcQgdSih4DVNesLEBes9VeRQGev6eOUJsuFALoEN0d2abus6m_hEq38WRWJzK7OuJyp-m7CPrf3ML2TfWv3Wilts_qCOZYa_cCqpngMa

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