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

hiénlinh197 · 28/4/18

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

Hoang2013 · 28/4/18

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 · 28/4/18

hiénlinh197 đã viết:
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.

PHP:

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

AutoReply · 28/4/18

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

PHP:

=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 · 28/4/18

Mã:

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 · 28/4/18

befaint đã viết:
Mã:

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 · 28/4/18

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

PHP:

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

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

hiénlinh197 · 28/4/18

befaint đã viết:
Mã:

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 · 28/4/18

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 · 28/4/18

Hoang2013 đã viết:
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 · 28/4/18

hiénlinh197 đã viết:
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 · 28/4/18

HieuCD đã viết:
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 · 28/4/18

hiénlinh197 đã viết:
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 · 28/4/18

HieuCD đã viết:
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 · 28/4/18

hiénlinh197 đã viết:
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 · 28/4/18

ndu96081631 đã viết:
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ê · 28/4/18

hiénlinh197 đã viế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"

PHP:

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 · 28/4/18

hiénlinh197 đã viế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"

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

hiénlinh197 · 28/4/18

Ba Tê đã viết:

PHP:

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 · 28/4/18

ndu96081631 đã viết:
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!

ndu96081631 · 28/4/18

hiénlinh197 đã viết:
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!

Nếu T2=2 thì U2, V2, W2 và X2 có =2 hay không?
Thêm nữa là tại sao Q2 lại =3

hiénlinh197 · 28/4/18

Ba Tê đã viết:

PHP:

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ê
Code của bác rất chuẩn.
Nhưng do trình độ VBA không thể vận dụng được vào các công việc khác nhau,
Vậy bác tìm giúp tôi công thức nhé.

hiénlinh197 · 28/4/18

ndu96081631 đã viết:
Nếu T2=2 thì U2, V2, W2 và X2 có =2 hay không?

Dạ có bác à, nếu dòng đó là dòng cuối có giá trị, thì sẽ lấy tất cả các giá trị của dòng cuối đó.

Ba Tê · 28/4/18

hiénlinh197 đã viết:
Cảm ơn bác
Ba Tê
Code của bác rất chuẩn.
Nhưng do trình độ VBA không thể vận dụng được vào các công việc khác nhau,
Vậy bác tìm giúp tôi công thức nhé.

Tôi "hơi bị đuối" với công thức, chỉ có thể vận dụng với 2 cột phụ "đen thùi lùi".

ndu96081631 · 28/4/18

hiénlinh197 đã viết:
Dạ có bác à, nếu dòng đó là dòng cuối có giá trị, thì sẽ lấy tất cả các giá trị của dòng cuối đó.

Còn cell Q2 bạn chưa giải thích là tại sao nó =3
---------------
Dữ liệu của bạn, trước khi đưa lên bạn phải kiểm tra cẩn thận chứ.... lát thiếu chỗ này, lát thiếu chỗ khác thì ai mà hiểu

hiénlinh197 · 28/4/18

ndu96081631 đã viết:
Còn cell Q2 bạn chưa giải thích là tại sao nó =3
---------------
Dữ liệu của bạn, trước khi đưa lên bạn phải kiểm tra cẩn thận chứ.... lát thiếu chỗ này, lát thiếu chỗ khác thì ai mà hiểu

Em vội quá nên không kiểm tra kỹ;
ô Q2=1 bác à

hiénlinh197 · 28/4/18

ndu96081631 đã viết:
Còn cell Q2 bạn chưa giải thích là tại sao nó =3
---------------
Dữ liệu của bạn, trước khi đưa lên bạn phải kiểm tra cẩn thận chứ.... lát thiếu chỗ này, lát thiếu chỗ khác thì ai mà hiểu

Bác xem lại file này em giải thích và dùng code này của bác
Ba Tê
viết rất đúng, nhưng em không hiểu VBA nên không thể vận dụng linh hoạt được.
Nên em muốn dùng công thức cho nó thuận tiện

hiénlinh197 · 28/4/18

Ba Tê đã viết:
Tôi "hơi bị đuối" với công thức, chỉ có thể vận dụng với 2 cột phụ "đen thùi lùi".

Cảm ơn bác
Ba Tê
Công thức của bác cũng rất chuẩn. Cảm ơn bác nhé!

HieuCD · 28/4/18

hiénlinh197 đã viết:
Nhờ các bạn làm giúp bài như file đính kèm.
Cảm ơn các bạn!

Xem file

hiénlinh197 · 29/4/18

HieuCD đã viết:
Xem file

Cảm ơn anh @HieuCD em tin chắc là công thức của anh quá tuyệt vời. Nhưng bây giờ em vẫn ch

HieuCD đã viết:
Xem file

Tuyệt vời, cảm ơn anh! công thức không phải dùng cột phụ. Ngưng có nhược điểm là không tìm được ký tự là "chữ" anh à.

HieuCD · 29/4/18

hiénlinh197 đã viết:
Cảm ơn anh @HieuCD em tin chắc là công thức của anh quá tuyệt vời. Nhưng bây giờ em vẫn ch

Tuyệt vời, cảm ơn anh! công thức không phải dùng cột phụ. Ngưng có nhược điểm là không tìm được ký tự là "chữ" anh à.

Kết quả có chữ "J" mà

Ba Tê · 29/4/18

hiénlinh197 đã viết:
Cảm ơn bác
Ba Tê
Công thức của bác cũng rất chuẩn. Cảm ơn bác nhé!

Công thức không cột phụ:

hiénlinh197 · 29/4/18

HieuCD đã viết:
Kết quả có chữ "J" mà

Nhưng em đánh dữ liệu xuống các dòng cuối tiếp theo thì bị lỗi anh à

hiénlinh197 · 29/4/18

Ba Tê đã viết:
Công thức không cột phụ:

Cảm ơn, rất cảm ơn bác
Ba Tê
. Công thức quá tuyệt vời. Tôi định dùng bài cột phụ của bác, nhưng không ngờ bác đã tìm ra được công thức này.
Thật sự code của bác cũng rất chuẩn, nhưng tôi không biết cách kiểm soát code, nên tôi không dám dùng. Một lần nữa cảm ơn bác nhé!

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

Người dùng đang xem chủ đề này

Thành viên tiêu biểu

File đính kèm

Thành viên gắn bó

GPE là ngôi nhà thứ 2 của tôi!!!

Thành viên tiêu biểu

|||||||||||||

Thành viên tiêu biểu

Thành viên tiêu biểu

Thành viên tiêu biểu

Thành viên gắn bó

Thành viên tiêu biểu

Chuyên gia GPE

Thành viên tiêu biểu

Chuyên gia GPE

Thành viên tiêu biểu

Huyền thoại GPE

Thành viên tiêu biểu

File đính kèm

Cạo Rồi Khỏi Gội

Huyền thoại GPE

Thành viên tiêu biểu

Thành viên tiêu biểu

Huyền thoại GPE

Thành viên tiêu biểu

Thành viên tiêu biểu

Cạo Rồi Khỏi Gội

File đính kèm

Huyền thoại GPE

Thành viên tiêu biểu

Thành viên tiêu biểu

File đính kèm

Thành viên tiêu biểu

Chuyên gia GPE

File đính kèm

Thành viên tiêu biểu

Chuyên gia GPE

Cạo Rồi Khỏi Gội

File đính kèm

Thành viên tiêu biểu

Thành viên tiêu biểu

Thời gian đếm ngược.