如何用VBA求某一列所使用的行数

如果是从第一行开始且连续的，行数可表示为，

sheet1range("A65536")end(xlup)row 'A列，office2003

sheet1range("A1048576")end(xlup)row 'A列，office2007及以后

excel2007开始最大行就到1048576行了

可能你格式没选对

1、点击左上角的Office图标，在d出来的菜单中点“Excel选项”按钮

2、在d出来的“Excel选项”对话框左边点“保存”选项卡

3、再在右边“保存工作簿”下面的“将文件保存为此格式”后面改成“Excel工作簿(xlsx)”。

4、再重新启动一下Excel，新建一个文件就有1048576行了。

代码运行前

代码运行后

代码如下：

Sub 插行()

  Dim i%, n% '声明两个整型变量

  For i = 22 To 2 Step -1 '注意：插行删行都必须逆向遍历

      n = Range("A" & i) - 1 '计算应插入的行数n

      If n > 0 Then

          Rows(i & ":" & i + n - 1)Insert '插入行

      End If

  Next

  MsgBox "处理完毕", 64 '完毕时d出提醒

End Sub

A列最后一行

LastRow = Cells(RowsCount, 1)End(xlUp)Row

B列最后一行

LastRow = Cells(RowsCount, 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人员），就可以设计满足自己需要（管理意图）的各种信息管理系统。另外，系统设计完成并投入使用以后，并不意味着系统就从此不能改变，而是还可以根据管理的需要进行不断的优化与扩展功能，真正做到了“持续优化，因需而变”，使到你自己设计的系统永不落伍。

1、将单元格所选单元格的行号和列号，分别用VBA显示在下面的两个单元格中，如下图所示：

2、按下Alt+F11，打开VBA编辑界面，选择当前工作表编写代码，如下图所示：

3、下面代码是得到当前单元格的行号并放到当前单元格下一个单元格中：

4、下面代码是得到当前单元格的列号并放到当前单元格下面第二个单元格中：

5、代码编写完成，点击运行子过程按钮（或按下F5）

6、返回Excel中，就可以看到得到了当前单元格的行号和列号

可能以上的三种方式，你还是不太熟悉，我们举一个通俗一点例子：

1、对象cells（rowsindex，colunmindex）

假如我们想在sheet1中的A1单元格输入100，是这样写代码的。

Worksheets("sheet1")Cells(1, 1) = 100

我们来说说cells（1,1）的含义，前面的一个数字1，代表的是第一行，后面的一个1代表的是第一列。是不是发现使用Cells比range更好理解一点呢？

PS：需要说明的是在我们excel种使用Cells这个时候，他的行和列是有最大值的，我们一旦超过最大值就会报错。行的最大值为1048576，列的最大值为16384

2、对象cells（rowindex）

这个使用方法很简单也很有意思，他的最大值为行和列的所有单元格数目相加，即他的最大值为17179869184这个数字和我们的Excel中的单元格的数目是相等的。理解这个的时候，可以这么理解，单元格从A1到XFD1换行，然后A2到XFD2，如此进行循环。

假如我们想在第520个单元格输入这个值，那么代码是如何去写写呢？

其实很简单的, Worksheets("sheet1")Cells(520) = 520

这代码的意思就是在第520个单元格输入520值。

3、对象cells

这个的使用方法可以说是非常强大的，这种方法返回的是所有工作表上的单元格，请注意和前面的2种方法区分来。

例1， 假如我们需要清除sheet1中的单元格的所有值，代码是这样写的。

代码为Worksheets("sheet1")CellsClear，这个的意思就是清除单元格中的所有内容。这个在我们清除单元格的内容的时候用的很多的。

excel获取指定工作表的行数、列数的具体 *** 作方法如下：

1首先，打开Excel软件

2打开源数据文件，假如需要根据证券代码显示出行业名称。现在，在I1单元格输入”证券代码“，在J1单元格输入”Nnindnme"。

3如图，选中J2单元格，单击工具栏中的"插入函数“

4d出”插入函数“对话框，选择插入IF函数

5在d出的”函数参数“对话框中，设置Logical_test参数为”I2=“”，将Value_if_true设置为“”，在Value_if_false参数框中输入“VLOOKUP(I2,A2:B2846,2)，然后点击确定

A列最底端有数据的单元格

[a65536]end(xlup)row

如果是统计每列有多少非空单元格

就要调用COUNTA函数方便些

WorksheetFunctionCountA (Range("A:A"))

以上就是关于如何用VBA求某一列所使用的行数全部的内容，包括:如何用VBA求某一列所使用的行数、VBA求最大行，表中数据超过65536行、如何在VBA插入指定行数等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！