Lấy giá trị dòng cuối cùng trong bảng dữ liệu.

[KhoiSMC]

Chào các bạn,

Ví dụ trong bảng dữ liệu có nhiều cột và dòng. Có cách nào lấy giá trị ở một ô ở dòng cuối cùng trong bảng dữ liệu đó.
Hình vẽ:


Ví dụ trong file đính kèm.

Xin cám ơn,
Khoi

 

[hungpecc1]

Chào các bạn,

Ví dụ trong bảng dữ liệu có nhiều cột và dòng. Có cách nào lấy giá trị ở một ô ở dòng cuối cùng trong bảng dữ liệu đó.
Hình vẽ:
View attachment 121363

Ví dụ trong file đính kèm.

Xin cám ơn,
Khoi

công thức cho ô A17:

=INDIRECT(ADDRESS(COUNTA(A$1:A$11),COLUMN(A1)))

 

[Cá ngừ F1]

Tại A17 đặt công thức

=INDEX(A$2:A$11,COUNTA(A$2:A$11),1)

rồi fill sang phải
Tuy nhiên, nếu mà cột dữ liệu có 1 ô trống ở giữa thì công thức này phá sản rồi.. (vậy dữ liệu thực tế có ô trống ko?)
P/S: Ct của a hungpecc1 cũng phá sản nếu có ô trống ạh

 

[nginh]

Chào các bạn,

Ví dụ trong bảng dữ liệu có nhiều cột và dòng. Có cách nào lấy giá trị ở một ô ở dòng cuối cùng trong bảng dữ liệu đó.
Hình vẽ:
View attachment 121363

Ví dụ trong file đính kèm.

Xin cám ơn,
Khoi

A17=INDEX(INDEX($A$1:$E$11,,MATCH(D16,$A$1:$E$1,0)),LARGE((INDEX($A$1:$E$11,,MATCH(D16,$A$1:$E$1,0))<>"")*ROW(INDEX($A$1:$E$11,,MATCH(D16,$A$1:$E$1,0))),1))

Ctrl+Shift+Enter

 

[phucbugis]

hehe,
chả biết công thức nào là đúng cả ..., link sau có nói đến 2 trường hợp: cột đó chứa text hoặc số
Find the Last Value in a Column (myonlinetraininghub)

 

[Phuocam]

Chào các bạn,

Ví dụ trong bảng dữ liệu có nhiều cột và dòng. Có cách nào lấy giá trị ở một ô ở dòng cuối cùng trong bảng dữ liệu đó.
Ví dụ trong file đính kèm.
Xin cám ơn,
Khoi

Thử công thức này:
A17 =LOOKUP(2,1/(A2:A11<>""),A2:A11)
Kéo qua phải.

 

[KhoiSMC]

oa, nhiều phương án quá mình sẽ ktra p.án nào có tốc độ tính toán nhanh nhất,
dữ liệu của mình có khoảng trống ở giữa,

thanks all,
khoi

 

[KhoiSMC]

mình thấy công thức

[COLOR=#000000]=LOOKUP(2,1/(A2:A11<>""),A2:A11)[/COLOR]

mang tính tổng quát và đúng cho đa dạng các dữ liệu.

Thanks phuocam
Khoi

 

[hungmo]

Xin hỏi quí anh/chị

Để biết 1 dòng nào đó có chứa dữ liệu cuối cùng về phía bên phải trong VBA mình dùng hàm gì để biết.

Ví dụ như để biết được dữ liệu cuối cùng của 1 cột B mình hàm : Range("B65432").End(xlUp).Row . Còn cột cuối cùng của dòng thì dùng hàm gì?

Tôi đã thử Range("IV1").End(xlToRight).Column=> có kết quả là 256. Trong khi mong muốn kết quả là 10(vì dữ liệu chỉ chứa tới cột J)

 

[Let'GâuGâu]

Xin hỏi quí anh/chị

Để biết 1 dòng nào đó có chứa dữ liệu cuối cùng về phía bên phải trong VBA mình dùng hàm gì để biết.

Ví dụ như để biết được dữ liệu cuối cùng của 1 cột B mình hàm : Range("B65432").End(xlUp).Row . Còn cột cuối cùng của dòng thì dùng hàm gì?

Tôi đã thử Range("IV1").End(xlToRight).Column=> có kết quả là 256. Trong khi mong muốn kết quả là 10(vì dữ liệu chỉ chứa tới cột J)

qua trái chứ sao lại qua phải?
tức là tính từ cột VI qua bên trái

[i1].End(xlToLeft).Column

hoặc

[i1].End(2).Column

 

[3109]

oa, nhiều phương án quá mình sẽ ktra p.án nào có tốc độ tính toán nhanh nhất,
dữ liệu của mình có khoảng trống ở giữa,

thanks all,
khoi

'Bạn có thể viết Funtion dựa vào Sub dưới đây đúng với mọi tr.hợp
Sub TimDongCuoi()
On Error Resume Next
Set sh = ActiveSheet ' Or sheet tu chon
sh.ShowAllData
With WorksheetFunction
h = sh.Range("A60000").End(xlUp).Row + 1
d = sh.UsedRange.Rows.Count
c = sh.UsedRange.Columns.Count
For i = h To d
If .CountA(sh.Range(sh.Cells(i, 1), sh.Cells(i, c))) = 0 Then
cuoi = i
Exit For
End If
Next
End With
MsgBox cuoi - 1
End Sub

 

[Hoàng Tuấn 868]

h = sh.Range("A60000").End(xlUp).Row + 1

đúng với mọi tr.hợp

Nếu dòng cuối lớn hơn 60.000 thì tèo.

 

[3109]

Nếu dòng cuối lớn hơn 60.000 thì tèo.

Cảm ơn bạn, tôi sai và bài viết trên của tôi vô tác dụng tôi xin sửa lại sau ở Function dưới.
Sử dụng trong excel chỉ cần gõ dấu = jcuoi(0) = dòng cuối sheet hiện hành (kể cả dữ liệu phân bố rời rạc), sheet khác thì gõ tên sheet đó chính xác.
Ứng dụng hàm này để so với end xlup do quá trình nháp hoặc người sử dụng vô tình gõ dấu cách.

Function jcuoi(ByVal SheetName As String) As Long
On Error Resume Next
Dim ren, cen, hcuoi, i As Long
If SheetName <> 0 then
Set sh = Sheets(SheetName)
Else
Set sh = Sheets(ActiveSheet.Name)
End If
On Error GoTo 0
With WorksheetFunction
ren = sh.Rows.Count
cen = sh.Columns.Count
i = sh.Rows(ren).End(xlup).Row
Do While .CountA(sh.Range(Cells(i, 1), sh.Cells(ren, cen))) > 0
jcuoi = sh.Rows(i).Row
i = i + 1
Loop
End With
Set sh = Nothing
End Function
'PS: Ý tưởng thì tôi có nhưng thuật toán yếu nên code gà mờ, vẫn cố Vọc dù quá sức nên hàm trên đôi lúc ko auto calculate.
Bài này mong các thầy trên diễn đàn sửa lỗi để hoàn thiện vì tôi cũng rất vướng do ACE công ty tôi hay sai. Cảm ơn diễn đàn.