[已解决]Find(What:="*", 如何排除有空格的行？

andanok

如下，i = [A:A].Find(What:="*", SearchDirection:=xlPrevious).Row 如何改为取得最后不为空值，且不为空格的行
A列：
#
#
#
$
@
@
#


$
@

#


发帖时空格被自动删除了，实际上#后面的行还有空格的行，不是空值，是空格哦，别的软件采集产生的
上传附件： 示例.rar (14.28 KB, 下载次数: 6)

2013-2-25 14:57 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-2-25 18:51

1. Sub 按钮1_Click()
   
2.     i = [A:A].Find(What:="*", SearchDirection:=xlPrevious).Row
   
3.     Dim str$
   
4.     Do
   
5.         str = Trim(Cells(i, 1).Value)
   
6.         i = i - 1
   
7.     Loop Until Len(str) > 0
   
8.     MsgBox i + 1
   
9. End Sub

复制代码

跳转到最佳答案楼层

hwc2ycy

1. Range("a:a").Find(what:="*", SearchDirection:=xlPrevious)

复制代码

hwc2ycy

改成用？号查找呢。

hwc2ycy

最好是传个附件来吧。

andanok

hwc2ycy 发表于 2013-2-25 14:42
最好是传个附件来吧。

已上传附件，请老师看看

hwc2ycy

1. Sub 按钮1_Click()
   
2.     i = [A:A].Find(What:="*", SearchDirection:=xlPrevious).Row + 1
   
3.     Dim str$
   
4.     Do
   
5.         i = i - 1
   
6.         str = Trim(Cells(i, 1).Value)
   
7.     Loop Until Len(str) > 0
   
8.     MsgBox i
   
9. 
   
10. End Sub
    

复制代码

hwc2ycy

1. Sub 按钮1_Click()
   
2.     i = [A:A].Find(What:="*", SearchDirection:=xlPrevious).Row
   
3.     Dim str$
   
4.     Do
   
5.         str = Trim(Cells(i, 1).Value)
   
6.         i = i - 1
   
7.     Loop Until Len(str) > 0
   
8.     MsgBox i + 1
   
9. End Sub

复制代码

andanok

hwc2ycy 发表于 2013-2-25 18:51

不错，这样解决了

hwc2ycy

只有这样去遍历了。