正常情况下用 [a1].end(xldown).row或者[a1040000].end(xlup).row就成。
但是我的表格可能并不是从[a1]单元格开始的,也许是从[c10]单元格开始的。
该情况下请问如何用VBA语句表示C列最后一个非空单元格所在的行数呢?
谢谢!
我表述有误,最后的问题不是求C列最后一个非空单元格行数。
C列只是我举得一个例子,但也有可能C列也是空的,表格是从D10单元格开始的。
我就是想要知道有内容的最后一行的行数。
谢谢!
Sub test()
MsgBox Sheets(1).UsedRange.Rows.Count
End Sub
怎么利用Excel表格中的VBA得到最大非空行数
msgbox range(A65536).end(3).row end sub 代码的意思即将光标定位在A65536单元格中,按下Ctrl+向上箭头组合键,自动选择最后一个非空行,进而获得行号。代码输入好之后,选择上方的“运行子程序”。5. 如图,我们就得到了A列最后一个非空行的行号。以上就是怎么利用Excel表格中的VBA得到最大非空行...
excel vba 最后一个非空单元格
l=range("IV1").end(xlToLeft).column 'l等于第一行最后一个非空单元格的列号(即从IV1单元格开始往左找第一个有内容的单元格的列号)用for i=1 to range("A65536").end(xlup).row即可
excel中vba的一个语句
endrow是一个变量,代码的意思是给这个变量赋值,值为A列最后一个非空单元格的行号 可写成endrow=range("A65536").end(xlup).row或endrow=cells(65536,1).end(xlup).row 65536是03版的最大行end(3)和end(xlup)一样
Excel中如何获取某列(行)最后一个非空单元格的值
1、接下来的公式可以返回A列中最后一个非空单元格的行号:=MAX((A:A<>"")*(ROW(A:A)))2、通过这个行号我们就可以使用ADDRESS函数来获取到此单元格的地址:=ADDRESS(MAX((A:A<>"")*(ROW(A:A))),COLUMN(A:A))3、最后我们以此获取到的地址为基础使用INDIRECT函数就可以获取到此单元...
excel函数查找一行中最后一个不为空的单元格列号 请高手帮帮忙?_百度...
以A列为例 =MAX(IF(A1:A1000<>"",ROW(A1:A1000),0))CTRL SHIFT 回车结束,行列数自行修改
如何用excel vba查找某一行最后一个非空单元格
最后一个值 = Sheets("sheet1").Range("A65535").End(xlUp).Value 用 col=range("C1").end(xltoright).column '找到最后非空一列 语句可能存在问题:当A1至A5数据连续时,该语句能返回正确 的结果,但当不连续时,将得不到最后一个非空结果 如 1 2 4 5 将只得到2,而不是5(其中3是...
excel VBA中如何选中行数不确定的区域
用range("o65536").end(xlup).row即可获取o列的最后一个非空单元格的行数 关于此例中用到的End的相关知识:Range对象有一个End属性,在别人的例子里经常会看到如“[A65536].End(xlUp).Row”这样的语句,这就是End属性的利用。End属性应用于Range对象,同样也返回一个Range对象。该对象代表包含源...
excel如何获取最大行数和列数
在Excel中,VBA提供了多种方法来获取工作表的最大行数和列数。以下是几种常见的方法:方式一:通过Worksheets(1).UsedRange.Rows.Count和Worksheets(1).UsedRange.Columns.Count获取,但要注意,这会统计带格式的空单元格。方式二:使用Range("a1").CurrentRegion.Rows.Count和Range("a1").CurrentRegion....
excel 每日一讲:vba取得最大行数、列数,看这一篇就够了。
在Excel VBA中,寻找最大行数和列数的方法多种多样,可以根据具体情况灵活选择。以下是七种常见的方法:方式一:直接使用Worksheets(1).UsedRange.Rows.Count获取活动工作表中数据区域的行数,但需注意带格式的空单元格会被计算在内。方式二:通过Range("a1").CurrentRegion计算,适用于a1单元格附近无...
用VBA将光标移动到光标所在行的最后一个非空单元格?
Sub 光标在行最后一单元格()Cells(ActiveCell.Row, Columns.Count).End(xlToLeft).Select End Sub 代码放在参考下面 Excel怎样快速提取不重复数据个数