返回一列最后一个非空单元格行号，合并单元格返回它最后一行的行号

zhym1983

Sheets("Result").Cells(Rows.Count, 1).End(3).Row
以上这个代码是返回表格result页的第一列最后一个非空单元格的行号。
现在的问题是，第一列最后一个非空单元格是3个合在一起的单元格。我的代码无法返回合并单元格的最后一行行号。
如何用代码返回一列最后一个非空单元格的行号，不管它是合并单元格还是单独的单元格？

蓝桥玄霜

如果这列有数据的其中没有空格，则可以用：
Arr = [a1].CurrentRegion
i = UBound(Arr)
否则可用：
Arr = Sheet1.UsedRange
i = UBound(Arr)

jbjbzjb

本不想作答，今见2楼版主的回帖内容其解决方案有点“曲线救国”的味道，还是跟个帖吧，以给后来者参考：

1. Sub kkk()
   
2.     Dim theFinalRow&, theRowsCount&
   
3.     With Sheet1
   
4.         theFinalRow = .Cells(.Rows.Count, 1).End(xlUp).Row
   
5.         MsgBox "初始获得的A列最后行号：" & theFinalRow
   
6.         theRowsCount = .Cells(theFinalRow, 1).MergeArea.Rows.Count
   
7.         theFinalRow = theFinalRow + theRowsCount - 1
   
8.         MsgBox "调整后最终确定的A列最后行号：" & theFinalRow
   
9.     End With
   
10. End Sub
    

复制代码

百度不到去谷歌

可以简单点写 这样就行了 lastRow=Range("A" & Sheet1.Cells.Rows.Count).End(xlUp).Offset(1).Row - 1'A列最后一个有效行号,Sheet1根据自己情况,如果是活动工作表可省略

zhym1983

jbjbzjb 发表于 2014-4-6 10:06
本不想作答，今见2楼版主的回帖内容其解决方案有点“曲线救国”的味道，还是跟个帖吧，以给后来者参考：

太感谢了，可以用了。3楼高手，膜拜！

zhym1983

百度不到去谷歌 发表于 2014-4-7 21:26
可以简单点写 这样就行了 lastRow=Range("A" & Sheet1.Cells.Rows.Count).End(xlUp).Offset(1).Row - 1'A列 ...

采用了3楼的方法，其它虽然没有采用，但还是感谢大家的帮忙！

麦田呱呱

jbjbzjb 发表于 2014-4-6 10:06
本不想作答，今见2楼版主的回帖内容其解决方案有点“曲线救国”的味道，还是跟个帖吧，以给后来者参考：

太牛逼了，这个好。我也不喜欢那个曲线救国。哈哈哈。

lrh788

可否这样写？lastRow=Sheet1.Cells.Rows.Count，1).End(xlUp).Offset(1).Row - 1