Tìm dòng cuối cùng có dữ liệu (7 người xem)

[hiénlinh197]

Nhờ các bạn làm giúp bài như file đính kèm.
Cảm ơn các bạn!

 

[Hoang2013]

Tìm dòng cuối có dữ liệu trong 1 vùng Rng nào đó ta nên áp dụng fương thức Rng.Find("*", , xlFormulas, xlWhole) trong VBA;
Còn xài fương thức này cụ thể ra sao, bạn có thể tìm trên diễn đàn & chúc sớm thành công!

 

[huonglien1901]

Nhờ các bạn làm giúp bài như file đính kèm.
Cảm ơn các bạn!

Dòng cuối cùng là sao bạn? đọc yêu cầu không hiểu gì hết.

=LOOKUP("zz",$B$2:$B$49)

 

[AutoReply]

Dòng cuối cùng là sao bạn? đọc yêu cầu không hiểu gì hết.

=LOOKUP("zz",$B$2:$B$49)

có nghĩa là tìm dòng cuối có dữ liệu của vùng A1:N49 tương ứng với mã ở cột R

 

[befaint]

T3=IFERROR(LOOKUP(2,1/(D$2:D$49<>"")/($B$2:$B$49=$R3)/($A$2:$A$49=$Q3),D$2:D$49),"")

 

[hiénlinh197]

T3=IFERROR(LOOKUP(2,1/(D$2:D$49<>"")/($B$2:$B$49=$R3)/($A$2:$A$49=$Q3),D$2:D$49),"")

Cảm ơn bạn
befaint
Công thức này đã đúng với mảng dữ liệu bên trong.
Nhưng còn vấn đề là lấy số thứ tự "TT" và mà hiệu tương ứng với các dòng đó.
Bạn tìm giúp mình tiếp nhé,!

 

[hiénlinh197]

Dòng cuối cùng là sao bạn? đọc yêu cầu không hiểu gì hết.

=LOOKUP("zz",$B$2:$B$49)

AutoReply
giải thích giúp mình rồi đó.

 

[hiénlinh197]

T3=IFERROR(LOOKUP(2,1/(D$2:D$49<>"")/($B$2:$B$49=$R3)/($A$2:$A$49=$Q3),D$2:D$49),"")

À mình xin lỗi, công thức này vẫn chưa đúng bạn à (Vì mình chưa đọc hết công thức): " Tức là tìm dòng cuối cùng có dữ liêu, lấy dữ liệu của dòng đó và lấy cả thứ tự "TT" và mã hiệu tương ứng với các dòng có dữ liệu đó.
Trong file mình cũng đã nói rõ rồi mà.

 

[Hoang2013]

Fải bài toán của bạn được mô tả như sau:
Tìm ô & dòng cuối có dữ liệu; (Nếu) có tìm thấy, thì lấy mảng dữ liệu xung quanh nó chuyển đến vùng dích?

 

[hiénlinh197]

Fải bài toán của bạn được mô tả như sau:
Tìm ô & dòng cuối có dữ liệu; (Nếu) có tìm thấy, thì lấy mảng dữ liệu xung quanh nó chuyển đến vùng dích?

Tức là lấy cả mã hiệu, số TT và dữ liệu bác
Hoang2013
à, Tôi nghĩ phải dùng 2 ccông thức, 1 Dùng để lấy Mã hiệu và TT; sau đó dùng công thức của bác
befaint

 

[HieuCD]

Nhờ các bạn làm giúp bài như file đính kèm.
Cảm ơn các bạn!

Trong bảng từ Q1:AD9, giải thích mấy ô tô màu xanh

 

[hiénlinh197]

Trong bảng từ Q1:AD9, giải thích mấy ô tô màu xanh

Chào anh
HieuCD
Mấy ô màu xanh đó là em tô để mọi người nhìn đối chiếu sang bảng dữ liệu cho dễ hiểu thôi mà anh. Cảm ơn anh!

 

[HieuCD]

Chào anh
HieuCD
Mấy ô màu xanh đó là em tô để mọi người nhìn đối chiếu sang bảng dữ liệu cho dễ hiểu thôi mà anh. Cảm ơn anh!

có lấy giá trị các ô xanh không?

 

[hiénlinh197]

có lấy giá trị các ô xanh không?

Những ô màu xanh là em tô màu cho dễ nhận biết mà anh
(Tất cả những dòng nào có giá trị ở vị trí cuối "Em dùng từ cuối cùng là sai" thì lấy hết anh à.

 

[ndu96081631]

Chào anh
HieuCD
Mấy ô màu xanh đó là em tô để mọi người nhìn đối chiếu sang bảng dữ liệu cho dễ hiểu thôi mà anh. Cảm ơn anh!

Giải thích tại sao cell U9 lại =6

 

[hiénlinh197]

Giải thích tại sao cell U9 lại =6

Dạ em gửi file để giải thích bác xem cho em nhé!
Giải thích tại sao cell U9 lại =6 vì dòng " Vì dòng 17 có giá trị là cuối cùng"

 

[Ba Tê]

Dạ em gửi file để giải thích bác xem cho em nhé!
Giải thích tại sao cell U9 lại =6 vì dòng " Vì dòng 17 có giá trị là cuối cùng"

Public Sub GPE_02()
Dim dArr(1 To 8, 1 To 14), I As Long, J As Long, N As Long, K As Long
K = 9
For N = 49 To 42 Step -1
    K = K - 1
    dArr(K, 2) = Cells(N, 2).Value
    For I = N To 2 Step -8
        If Application.WorksheetFunction.CountA(Cells(I, 4).Resize(, 11)) > 0 Then
            dArr(K, 1) = Cells(I, 1).Value
            For J = 4 To 14
                dArr(K, J) = Cells(I, J).Value
            Next J
            Exit For
        End If
    Next I
Next N
Range("Q2").Resize(8, 14) = dArr
End Sub

 

[ndu96081631]

Dạ em gửi file để giải thích bác xem cho em nhé!
Giải thích tại sao cell U9 lại =6 vì dòng " Vì dòng 17 có giá trị là cuối cùng"

Vẫn chưa hiểu là tại sao cell T2 không có giá trị nào?

 

[hiénlinh197]

Public Sub GPE_02()
Dim dArr(1 To 8, 1 To 14), I As Long, J As Long, N As Long, K As Long
K = 9
For N = 49 To 42 Step -1
    K = K - 1
    dArr(K, 2) = Cells(N, 2).Value
    For I = N To 2 Step -8
        If Application.WorksheetFunction.CountA(Cells(I, 4).Resize(, 11)) > 0 Then
            dArr(K, 1) = Cells(I, 1).Value
            For J = 4 To 14
                dArr(K, J) = Cells(I, J).Value
            Next J
            Exit For
        End If
    Next I
Next N
Range("Q2").Resize(8, 14) = dArr
End Sub

Cảm ơn bác
Ba Tê
rất nhiều, Nhưng tôi muốn dùng công thức, bác nghiên cứu giúp công thức nhé!

 

[hiénlinh197]

Vẫn chưa hiểu là tại sao cell T2 không có giá trị nào?

Em nhầm chưa cho gia trị đầy đủ, (Bởi vì hàng đầu và bôi màu vàng nên em bỏ sót)
ở ô T2 có gia trị = 2 Bác
ndu96081631
à, cảm ơn bác!