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

[ndu96081631]

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]

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]

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ê]

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]

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]

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]

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]

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]

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]

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

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]

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ê]

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]

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]

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é!