Excel 2010 VBA 入门 037 获取最后一行数据的行数

最新推荐文章于 2023-07-20 10:54:04 发布
最新推荐文章于 2023-07-20 10:54:04 发布
阅读量6.1k 收藏 21
点赞数
分类专栏： # Excel 2010 VBA 入门
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/ngbshzhn/article/details/115653355
版权

目录

示例：

实现代码1

使用Find方法查找最后的单元格

Find方法按行查找和按列查找的区别

实现代码2

获取工作表总行数

实现代码3

单元格对象的End属性

End属性的局限性

其他获取最后数据行行号的方法

1．定位(SpeciaICells)

2.UsedRange

实现代码4

3. CurrentReion

示例：

    在VBA中，经常需要对原始数据进行统计。然而在大多数情况下，数据的总行数是未知的，因而会给编写通用性较高的代码造成一些麻烦。如图所示，该表为某公司某月的销售人员销售数据。现需要对该表进行统计，由于销售人员的人数每月不固定，如何利用VBA动态获取最后一行数据的行号（以C列为准），以使程序更具备通用性？

销售地区 销售人员 销售金额
广州 程建华 135000
深圳 李国敏 67200
深圳 袁志刚 79500
深圳 周汉林 225000
广州 骈永富 15400
广州 孙玉梅 2500
上海 陈亚菁 37400
上海 康小芸 12000
上海 刘晨 22500
广州 齐光 73500
广州 于健惠 235000
山东 王文群 136500
山东 曾国安 21000
广州 刘志峰 16000
广州
最低0.47元/天 解锁文章
ngbshzhn
关注
  • 0
    点赞
  • 踩
  • 21
    收藏
    觉得还不错? 一键收藏
  • 打赏
    打赏
  • 0
    评论
专栏目录
【Excel VBA】得到最后数据的行数
碰碰虎的博客
05-13 3299
纲举目张得到最后数据的行数说明代码 code解析拓展 得到最后数据的行数 说明 在编写代码时我们时常用到的是: 取得数据表的最后一行数据所在的行号?这样在编写循环语句时就不用猜着自定义终止值? 代码 code Dim FinalRow As Integer FinalRow = Range("A65536").End(xlUp).Row '得到A列最后数据的行数 解析 自A65536单元格开始向上询查，A列第一个有内容的单元格所在的行号。 拓展 如果A列或B列或C列等列行数不同，就可以将A65536修改为
Excel VBA获取最后一行列
11-04
主要介绍Excel VBA获取最后一行列的几种方法，及各自的优缺点
Excel VBA求某列最后一行非空行号
热门推荐
ChristopherChen的博客
11-28 3万+
求出A列最后1行：Cells(Rows.Count, 1).End(3).Row "Cells(Rows.Count, 1)"表示是查找A列最后一个非空单元格，按列的可以改成"Cells(1, Columns.count)" "end(3)"表示的向上查找，也可以写成“end(xlup)”,还有其他3个方向，向下，向左，向右：xldown,xltoleft,xltoright
[转载]VBA获取最后一个单元格行号的几种方法
i_bay的博客
10-19 6708
[方法一] ActiveSheet.Range(“A” & Rows.Count).End (xlUp).Row [方法二] ActiveSheet.Range(“a1048576”).End(xlUp).Row ActiveSheet.Range(“a65536”).End(xlUp).Row [方法三] ActiveSheet.Cells(Rows.Count,1).End(3).Row [方法四] ActiveSheet.range(“A1”).CurrentRegion.Rows.Count
excel vba 快速获取某工作表最后行数（首列不为空值）
nhcxl的博客
05-04 5801
Function getlastcell(mysheet As String, Optional startrow As Integer) As Integer  Sheets(mysheet).Select      rowcountinu = False  If startrow = 0 Then     startrow = 2  End If  For i = startrow To st...
vba获取a行的最下行号
weixin_35749786的博客
02-14 417
VBA 获取 A 列的最后一行号的代码如下： lastRow = Cells(Rows.Count, "A").End(xlUp).Row 这段代码会找到 A 列的最后一行，并将该行的行号存储在 lastRow 变量中。
vba函数 ：判断excel工作簿数据行数
09-23
程序功能： 判断excel文件中某个工作簿中第一列的最后一行数据的行数（假设第一行有数据，以后每行数据为连续的，无空值。）
VBA获取EXCEL中的行数和列数.pdf
09-29
excel VBA获取EXCEL中的行数和列数.
vba excel 一行excel数据打印一个标签
06-14
之前用金山表单收集内容 收集的内容金山表单可以直接生成实时同步的金山文档excel 工作上需要一个表单打印一个标签 ...我留的有例行，如果要测试的话，把“打印标签”按钮事件里面的第一行Call 抓数据注释掉就行了
VBA获取模块鼠标光标所在的行数.txt
08-21
获取模块鼠标光标所在的行数,一般用于写VBE代码助手时使用，想智能把代码插入到当前鼠标所在行，达到快速书写代码的目的
excel筛选后，定位最后一行，可以满足大部分需求 请笑纳
11-01
excel筛选后，定位筛选数据下面的一行，可以满足大部分需求。请笑纳。如有疑问可以联系1216873830qq.com,邮箱。我看网上很多网友求助，我辛苦了大半天，将代码贴出了来，请各位下载。
Excel+VBA+获取股票的历史数据+股票+基金+投资+理财+源代码+可直接使用
01-30
通过以上步骤，你就可以利用VBA在Excel中创建一个自定义工具，轻松获取和分析股票历史数据。这个工具对于个人投资者进行股票和基金研究，以及理财规划，都是极其有价值的。记得在使用API时遵循其使用条款，确保合法...
ExcelVBA 宏 查找最后一列，查找最后一行，查找最后一个单元格
weixin_58444518的博客
07-15 7913
ExcelVBA 宏 查找最后一列，查找最后一行，查找最后一个单元格。返回最后一行行数，返回最后一列列数，返回最后一个单元格地址
Excel公式：查找最后一行非空单元格并返回行号、及公式解释
记录遇到的电脑问题
07-20 6004
查找最后一行非空单元格并返回行号、及公式解释
excel中使用VBA如何统计数据区域最后一行行号？
HD243608836的博客
11-11 7296
统计数据区域最后一行行号，可以说是入门VBA时最基础的一行代码，可以让你获取某列或者某一区域的最后一行的行号，本文给出7中不同的方法，得出数据区域最后一行行号，当然每种方法之间有些许差别。 工具/原料 OFFICE 2016（已打开“开发工具”选项卡） 方法/步骤 [第一种方法] ActiveSheet.Range("A" & Rows.Count).End (xlUp).Row [第二种方法] ActiveSheet.Range("a1048576").End..
Excel开发(VBA)— 快速定位最后有记录的行
腾跃的专栏
07-20 1万+
有时候，在进行Excel开发时，需要知道某列的最后一行的行号。Excel也提供了相关功能：Range.End属性。     Dim strCell As String     Dim nLastUseRow As Long     Dim nLastRcdRow As Long     Dim Rng As Range     '为最后一个单元格所在行 , 即
VBA学习心得一：关于获取某个sheet表最后一行的行号
xiaoqiang3146的专栏
04-29 8243
获取某个sheet表最后一行的行号，对于使用vba进行循环查找是必经的过程： 通过我最近的学习发现2中方法进行使用，现在分享如下： 如下表格示例： 方法一： Public Sub test() Dim lastRow As Long lastRow = Worksheets(1).Columns(1).Find("*", searchdirection:...
Excel宏 取得sheet中最后一行的行号
bigheadsheep的专栏
08-31 1万+
近日用到Excel宏，需要取得最后一行的行号，从网上找了找，方法很多，以下这个方法出自CSDN论坛帖子， 方法很简单，而且可以正常统计隐藏行（这个是关键！） n = ActiveSheet.UsedRange.Rows.Count a = ActiveSheet.UsedRange.Rows(n).Row   取得的a，就是最后一行的行号！   拓展一下，取得最后一列的列号的方法
分布式电网动态电压恢复器模拟装置设计与实现.doc
最新发布
07-06
本装置采用DC-AC及AC-DC-AC双重结构，前级采用功率因数校正（PFC）电路完成AC-DC变换，改善输入端电网电能质量。后级采用单相全桥逆变加变压器输出的拓扑结构，输出功率50W。整个系统以TI公司的浮点数字信号控制器TMS320F28335为控制电路核心，采用规则采样法和DSP片内ePWM模块功能实现SPWM波，采用DSP片内12位A/D对各模拟信号进行采集检测，简化了系统设计和成本。本装置具有良好的数字显示功能，采用CPLD自行设计驱动的4.3英寸彩色液晶TFT-LCD非常直观地完成了输出信号波形、频谱特性的在线实时显示，以及输入电压、电流、功率，输出电压、电流、功率，效率，频率，相位差，失真度参数的正确显示。本装置具有开机自检、输入电压欠压及输出过流保护，在过流、欠压故障排除后能自动恢复。
excel里vba 获取access表的行数
06-09
您可以使用以下代码获取Access表的行数并在Excel中显示： ```vba Sub GetAccessTableRowCount() Dim conn As Object Dim rs As Object Dim rowCount As Long ' 创建连接对象 Set conn = CreateObject("ADODB....

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

ngbshzhn

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付：¥1
获取中
扫码支付

您的余额不足，请更换扫码支付或充值

打赏作者

实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值