Range("A65536").End(xlUp).Row 找到A列最后一个非空行

Question

万一我这一列 有填充公式 ，他就显示的不对了 怎么办

Answer 1

Dim qq As Long
qq = Intersect(ActiveSheet.UsedRange, Range("A:A")).Rows.Count + Intersect(ActiveSheet.UsedRange, Range("A:A")).Row - 1
For i = qq To 1 Step -1
If Len(Cells(i, 1).Text) > 0 Then
MsgBox "A列最后非空行是：" & i
Exit For
End If
Next i

Answer 2

Dim qq As Long
qq = Intersect(ActiveSheet.UsedRange, Range("A:A")).Rows.Count + Intersect(ActiveSheet.UsedRange, Range("A:A")).Row - 1
For i = qq To 1 Step -1
If Len(Cells(i, 1).Text) > 0 Then
MsgBox "A列最后非空行是：" & i
Exit For
End If
Next i