[已解决]vba代码查找某列最后一个汉字，并选中下一行的某列的单元格。

yslvictor

查找E列最后的一个汉字，并选中这个汉字的下一行A列的单元格。
汉字的位置在E列某行不一定。
例如，如图，E列的最后一个汉字是E16，（E16下面的单元格可能有字母、数字、空格、空白单元格，这些都不算汉字），选中行17的A列的单元格。
请论坛老师写段代码。



查找汉字.rar (2.29 KB, 下载次数: 4)

2013-4-19 21:56 上传

点击文件名下载附件
请论坛老师帮忙写段代码。谢谢。

最佳答案

月排行榜 / 总排行榜

爱疯

2013-4-20 10:14

Sub test()
    Dim rng As Range
    Dim n As Integer
    Dim i As Integer
    Set rng = Range([e1], Range("e65536").End(xlUp))
    If Not rng Is Nothing Then
        n = rng.Count
        For i = n To 1 Step -1
            If rng(i) <> 0 Then
                If Asc(rng(i)) < 0 Then
                    Cells(rng(i).Row + 1, 1).Select
                    End
                End If
            End If
        Next
    End If
End Sub

应该排除0，搞忘了，再试试

跳转到最佳答案楼层

爱疯

1. Sub test()
   
2.     Dim rng As Range
   
3.     Dim n As Integer
   
4.     Dim i As Integer
   
5. 
   
6.     Set rng = Range([e1], Range("e65536").End(xlUp))
   
7.     If Not rng Is Nothing Then
   
8.         n = rng.Count
   
9.         For i = n To 1 Step -1
   
10.             If Asc(rng(i)) < 0 Then
    
11.                 Cells(rng(i).Row + 1, 1).Select
    
12.                 End
    
13.             End If
    
14.         Next
    
15.     End If
    
16. End Sub

复制代码

查找汉字2.rar (13.24 KB, 下载次数: 15)

2013-4-19 22:36 上传

点击文件名下载附件

yslvictor

爱疯 发表于 2013-4-19 22:36

谢谢版主老师，你写的代码正是我想要的结果，就是最后汉字的下行可能是空白单元格，测试就出错。比如E17是空白单元格时出现错误。请老师改下。

hwc2ycy

要在某列中找到最后一个汉字的行，可以用math=("座","j:j")，这样返回的结果就是J列中最后一个的汉字所在的行号。

爱疯

Sub test()
    Dim rng As Range
    Dim n As Integer
    Dim i As Integer
    Set rng = Range([e1], Range("e65536").End(xlUp))
    If Not rng Is Nothing Then
        n = rng.Count
        For i = n To 1 Step -1
            If rng(i) <> 0 Then
                If Asc(rng(i)) < 0 Then
                    Cells(rng(i).Row + 1, 1).Select
                    End
                End If
            End If
        Next
    End If
End Sub

应该排除0，搞忘了，再试试

yslvictor

这次问题解决了。谢谢版主老师。