Hàm tìm số thứ tự của dòng cuối và cột cuối

[hongphuong1997]

Em nhờ thầy cô và anh chị giúp đỡ viết hàm như file đính kèm
Em xin cảm ơn ạ

 

[hocexcel_1991]

Em nhờ thầy cô và anh chị giúp đỡ viết hàm như file đính kèm
Em xin cảm ơn ạ

Công thức

dòng=AGGREGATE(14,6,ROW($1:$15)/(1-ISBLANK($C$3:$M$17)=1),1)
cột=AGGREGATE(14,6,ROW($1:$11)/(1-ISBLANK(TRANSPOSE($C$3:$M$17))=1),1)

 

[SA_DQ]

Hai trong 1 để bạn tham khảo:

Function STTDCC(Rng As Range, Optional Dg As Boolean = True) As Integer
Dim RgO As Range
Dim lRow As Long, lCol As Integer

Set RgO = Rng.Offset(1, 1)
lRow = RgO.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row
lCol = RgO.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByColumns).Column
If Dg Then
    STTDCC = lRow - Rng(1).Row
Else
    STTDCC = lCol - Rng(1).Column
End If
End Function

Cách xài: Tại ô trống nào đó ngoài vùng dữ liệu ta nhập =STTDCC(B2:M17)

 

[hongphuong1997]

Công thức

dòng=AGGREGATE(14,6,ROW($1:$15)/(1-ISBLANK($C$3:$M$17)=1),1)
cột=AGGREGATE(14,6,ROW($1:$11)/(1-ISBLANK(TRANSPOSE($C$3:$M$17))=1),1)

Em cảm ơn anh, nhưng công thức tìm cột bị sai anh ơi

Bài đã được tự động gộp: 13/3/19

Hai trong 1 để bạn tham khảo:

Function STTDCC(Rng As Range, Optional Dg As Boolean = True) As Integer
Dim RgO As Range
Dim lRow As Long, lCol As Integer

Set RgO = Rng.Offset(1, 1)
lRow = RgO.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row
lCol = RgO.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByColumns).Column
If Dg Then
    STTDCC = lRow - Rng(1).Row
Else
    STTDCC = lCol - Rng(1).Column
End If
End Function

Cách xài: Tại ô trống nào đó ngoài vùng dữ liệu ta nhập =STTDCC(B2:M17)

Cháu cảm ơn bác @SA_DQ
Bác ơi công thức trên chỉ tìm được mỗi dòng thôi hở bác
Cháu chưa biết cú pháp dùng hàm
Bác chỉ dẫn cho cháu với bác ơi

Bài đã được tự động gộp: 13/3/19

Hai trong 1 để bạn tham khảo:

Function STTDCC(Rng As Range, Optional Dg As Boolean = True) As Integer
Dim RgO As Range
Dim lRow As Long, lCol As Integer

Set RgO = Rng.Offset(1, 1)
lRow = RgO.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row
lCol = RgO.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByColumns).Column
If Dg Then
    STTDCC = lRow - Rng(1).Row
Else
    STTDCC = lCol - Rng(1).Column
End If
End Function

Cách xài: Tại ô trống nào đó ngoài vùng dữ liệu ta nhập =STTDCC(B2:M17)

À cháu biết sử dụng rồi bác ợ
Cháu cảm ơn bác @SA_DQ

 

[snow25]

Em cảm ơn anh, nhưng công thức tìm cột bị sai anh ơi

Bài đã được tự động gộp: 13/3/19

Cháu cảm ơn bác @SA_DQ
Bác ơi công thức trên chỉ tìm được mỗi dòng thôi hở bác
Cháu chưa biết cú pháp dùng hàm
Bác chỉ dẫn cho cháu với bác ơi

Bài đã được tự động gộp: 13/3/19

À cháu biết sử dụng rồi bác ợ
Cháu cảm ơn bác @SA_DQ

Cách dùng.

=STTDCC(B2:M17,0)
[CODE]=STTDCC(B2:M17,true)
=STTDCC(B2:M17,false)

=STTDCC(B2:M17,1)

 

[hongphuong1997]

Cách dùng.

=STTDCC(B2:M17,0)
[CODE]=STTDCC(B2:M17,true)
=STTDCC(B2:M17,false)

=STTDCC(B2:M17,1)

Em cảm ơn anh nhé @snow25