Question

在Excel中取得某列最后一行的VBA代码怎么写（各列行数不同）？

Answer 1

A列最后一行

LastRow = Cells(Rows.Count, 1).End(xlUp).Row

B列最后一行

LastRow = Cells(Rows.Count, 2).End(xlUp).Row

一. 基本概念

Microsoft Excel是微软公司的办公软件Microsoft office的组件之一，是由Microsoft为Windows和Apple Macintosh操作系统的电脑而编写和运行的一款试算表软件。Excel 是微软办公套装软件的一个重要的组成部分，它可以进行各种数据的处理、统计分析和辅助决策操作，广泛地应用于管理、统计财经、金融等众多领域。

二. 软件延伸

目前许多软件厂商借助Excel的友好界面和强大的数据处理功能开始研究将其以更简单的方式应用到企业管理和流程控制中，比如ESSAP（Excel&SQL平台）就是很好的应用Excel和数据库软件MS　SQL相结合应用到企业管理和各行各业数据处理的例子。

ESSAP是一个用于构建信息系统的设计与运行平台。其以Excel为操作界面，结合大型数据库MS SQL与工作流技术，用户只要运用自己已经掌握的Excel操作技术（不需依靠专业IT人员），就可以设计满足自己需要（管理意图）的各种信息管理系统。另外，系统设计完成并投入使用以后，并不意味着系统就从此不能改变，而是还可以根据管理的需要进行不断的优化与扩展功能，真正做到了“持续优化，因需而变”，使到你自己设计的系统永不落伍。

Answer 2

A列最后一行
LastRow = Cells(Rows.Count, 1).End(xlUp).Row
B列最后一行
LastRow = Cells(Rows.Count, 2).End(xlUp).Row
...
明了？