Excel宏以查找行的长度

时间:2012-10-01 13:25:02

标签: excel excel-vba vba

我正在使用Excel Macros,

我遇到了ActiveCell.End(xlDown).Select命令,转到表格的最后一行

我目前正在使用此命令查找总行数

ActiveCell.End(xlDown).Select

y = ActiveCell.Row

但问题是大数据命令会跳过数据,下一行的数据会发生变化。

可能是什么问题?

(你可以看到表1069和1070,数据类型是相同格式的日期,但代码不确定地被跳过[注意:当第二列有变化时])

.
.
.
1068 >  20-08-2012    C0    138225    98.91608138    99.25925926
1069 >  20-08-2012    C0    138226    99.71159982    98.95776825
1070 >  21-08-2012    __    506821       65335U11     0     
1071 >  21-08-2012    C0    100381     0              0
.
.
.

1 个答案:

答案 0 :(得分:0)

我正在删除评论,但您应该始终使用xlUp而不是xlDown,以避免出现空白问题。

请在目标列中选择一个单元格并运行以下内容:

Sub findTherow()
Dim y As Integer
With Excel.ActiveSheet
            y = .Cells(.Rows.Count, ActiveCell.Column).End(Excel.xlUp).Row
End With
MsgBox ("Look what I found:" & y)
End Sub