Tìm dòng cuối có chứa dữ liệu trong một cột ( không tính ô có công thức "")

[phamvandunghp84]

Mình muốn tìm dòng cuối có chứa dữ liệu của cột A . ( nhưng cột A này có chứa công thức dạng if(...;...;"")
muốn code tìm được dòng cuối cùng chứa dữ liệu nhưng không tính những ô có giá trị "" thì mình phải code như nào mới tìm được dòng cuối có dữ liệu mà bỏ qua được những dòng trống ("") ? Xin cảm ơn !

Sub findLastRowOfColumn2()
Dim ws As Worksheet
Dim lastRow As Integer

Set ws = ActiveSheet

'find last row of column
lastRow = ws.Range("A1:" & "A" & Rows.Count).End(xlDown).Row

MsgBox lastRow
End Sub

 

[befaint]

MsgBox getLastRowX(ActiveSheet, "A")


Private Function getLastRowX(ByVal ws As Worksheet, ByVal sColRef As String)
    Dim lastRow As Long, data As Variant, i As Long
    lastRow = ws.Range("A" & Rows.Count).End(xlUp).Row
    data = ws.Range(sColRef & 1).Resize(lastRow).Value2
    getLastRowX = 1
    For i = lastRow To 1 Step -1
        If Len(data(i, 1)) > 0 Then
            getLastRowX = i
            Exit Function
        End If
    Next i
End Function

 

[snow25]

MsgBox getLastRowX(ActiveSheet, "A")


Private Function getLastRowX(ByVal ws As Worksheet, ByVal sColRef As String)
    Dim lastRow As Long, data As Variant, i As Long
    lastRow = ws.Range("A" & Rows.Count).End(xlUp).Row
    data = ws.Range(sColRef & 1).Resize(lastRow).Value2
    getLastRowX = 1
    For i = lastRow To 1 Step -1
        If Len(data(i, 1)) > 0 Then
            getLastRowX = i
            Exit Function
        End If
    Next i
End Function

Anh ơi sao không lấy theo tên sheets.Lấy thế này khó dùng lắm anh ạ.

 

[befaint]

Anh ơi sao không lấy theo tên sheets.Lấy thế này khó dùng lắm anh ạ.

Theo code name mà.
Các dự án mà viết cho người khác dùng thì ưu tiên 99% dùng code name.