[已解决]关于vba问题

lizhengxu

例如单元格 a列，如何编程可以看到a列最后一个有内容的单元格？
不用if语句。不知道specialcell，和end语句可否实现？

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-3-3 18:28

1. Sub test()
   
2.     Dim iRow As Long
   
3.     For iRow = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
   
4.         If Len(Cells(iRow, 1)) > 0 Then
   
5.             Exit For
   
6.         End If
   
7.     Next
   
8.     MsgBox iRow
   
9. End Sub

复制代码

跳转到最佳答案楼层

hwc2ycy

1. msgbox range(rows.count,1).end(xlup)

复制代码

hwc2ycy

1.     MsgBox Range("A:a").Find(what:="*", searchdirection:=xlPrevious)

复制代码

lizhengxu

hwc2ycy 发表于 2013-3-3 17:17

如果我想反回最后有数据的 row数，应该如何编写？

hwc2ycy

那就循环吧。

hwc2ycy

1. Sub test()
   
2.     Dim iRow As Long
   
3.     For iRow = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
   
4.         If Len(Cells(iRow, 1)) > 0 Then
   
5.             Exit For
   
6.         End If
   
7.     Next
   
8.     MsgBox iRow
   
9. End Sub

复制代码

lizhengxu

hwc2ycy 发表于 2013-3-3 18:28

不想用循环语句，不知道可不可以用specialcells和end语句配合使用？

lizhengxu

hwc2ycy 发表于 2013-3-3 18:28

感觉用循环语句似乎很浪费时间

hwc2ycy

你用END(XLDOWN)吧。

hwc2ycy

用循环是为了避免假空单元格。