vba 快速定位当前EXCEL最后一栏

工作的需要，有时会对EXCEL数据进行处理，比如格式化，有数据的单元格画横线。

最初，傻傻的，直接用个循环从第1行，一直往后找，判断是否为空，真傻。

Function FindLastCell()

    Dim i As Long
    
    For i = 1 To 65536
        
        If Cells(i, 1).Value = "" Then
            Exit For
        End If
        i = i + 1
    Next
       
    FindLastCell = i-1

End Function 

 

后来用CTRL+END，然后录制宏，终于发现最后的行 原来VBA 一早就有个常量放在那里等着你用啦———》 xlLastCell