Excelmacros查找行的长度

我正在使用Excelmacros，

我碰到命令ActiveCell.End(xlDown).Selectselect去表的最后一行

我目前正在使用这个命令来查找总行数

 ActiveCell.End(xlDown).Select y = ActiveCell.Row 

但问题是大数据的命令会跳过数据，下一行的数据在哪里变化。

什么可能是可能的问题？

（你可以看到表格1069＆1070的数据types是相同格式的date，但代码不确定地跳出了[注：当第二列有变化时））

  。
 。
 。
 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
 。
 。
 。 

Answer 1

我正在旋转评论，但你应该总是使用xlUp而不是xlDown ，以避免空白的问题。

请在目标列中select一个单元格，然后运行以下命令：

 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