Lấy dữ liệu của Cell cuối cùng trong cột (1 người xem)

[Ngọc Lam 5012]

Cần anh em giúp đỡ trường hợp của mình!
Làm sau để Cell B2 (cột "SỐ TIỀN CẦN TÍNH") = giá trị của ô cuối cùng có dữ liệu của cột "SỐ TIỀN CUỐI NGÀY"?
Ví dụ: Như hình bên dưới thì B2 = 1.55. Nếu A5 có dữ liệu thì B2 = A5, nếu A6 có dữ liệu thì B2 = A6,..... nếu A100 có dữ liệu thì B2 = A100,.....

 

[giaiphap]

Cần anh em giúp đỡ trường hợp của mình!
Làm sau để Cell B2 (cột "SỐ TIỀN CẦN TÍNH") = giá trị của ô cuối cùng có dữ liệu của cột "SỐ TIỀN CUỐI NGÀY"?
Ví dụ: Như hình bên dưới thì B2 = 1.55. Nếu A5 có dữ liệu thì B2 = A5, nếu A6 có dữ liệu thì B2 = A6,..... nếu A100 có dữ liệu thì B2 = A100,.....
View attachment 198121

Ô B2 gõ công thức như sau:

=OFFSET($A$2,COUNT($A$3:$A$10000),)

 

[phulien1902]

Cần anh em giúp đỡ trường hợp của mình!
Làm sau để Cell B2 (cột "SỐ TIỀN CẦN TÍNH") = giá trị của ô cuối cùng có dữ liệu của cột "SỐ TIỀN CUỐI NGÀY"?
Ví dụ: Như hình bên dưới thì B2 = 1.55. Nếu A5 có dữ liệu thì B2 = A5, nếu A6 có dữ liệu thì B2 = A6,..... nếu A100 có dữ liệu thì B2 = A100,.....
View attachment 198121

Thử:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim LR As Long
    Application.ScreenUpdating = False
     LR = Range("A" & Rows.Count).End(xlUp).Row
     If Not Intersect(Target, Range("A3:A1000")) Is Nothing Then
      [b2] = Range("A" & LR)
    End If
   Application.ScreenUpdating = True
End Sub

 

[SA_DQ]

Thêm cách nữa để bạn tham khảo:

Function TCN(Rng As Range) As Double
 Dim Cls As Range
 Set Rng = Rng.End(xlDown)
 TCN = Rng.Value
End Function

Cú fáp sử dung hàm tại [B2]: =TCN({A3])