Xuất giá trị sang sheet khác có điều kiện.

[hcl_pt]

Mình có file excel gồm 3 sheet:
Sheet1: Bang_gia_tri_otrong.
Sheet2: CSDL.
Sheet3: Gia_tri_xuat.
- Sheet2: CSDL: Gồm nhiều dòng giá trị từ dòng 5 trở xuống (ví dụ ở đây minh họa 2 dòng A1; A2).
Các dòng giá trị A1; A2;...có các giá trị nhập bất kì có chứa trong cột giá trị ở sheet1.
- Nếu tính từ cột cuối cùng trở về cột B:
+ ví dụ cho dòng giá trị A1: Giá trị xuất hiện đầu tiên là 1 và số ô trống là 0 thì giá trị xuất sang sheet3 ở vị trí tương ứng là a0 (được quy định ở bảng trong sheet1); giá trị tiếp theo xuất hiện là 2 và số ô trống được tính từ giá trị đầu tiên xuất hiện là 3 thì giá trị xuất sang sheet3 ở vị trí tương ứng là b3 (được quy định ở bảng trong sheet1); giá trị tiếp theo xuất hiện là 5 liền kề luôn với giá trị xuất hiện trước thì số ô trống được tính là 0 và giá trị xuất sang sheet3 ở vị trí tương ứng là e0 (được quy định ở bảng trong sheet1); ..v.v.. cứ như vậy tính giá trị đến hết cột B.
* Dòng giá trị A2 cũng đã làm minh họa ở giá trị xuất hiện ở sheet3.
* Các bạn xem file kèm theo sẽ dễ hiểu hơn. Rất mong GPE giúp đỡ trường hợp này. Xin cảm ơn rất nhiều!

 

[concogia]

Mình có file excel gồm 3 sheet:
Sheet1: Bang_gia_tri_otrong.
Sheet2: CSDL.
Sheet3: Gia_tri_xuat.
- Sheet2: CSDL: Gồm nhiều dòng giá trị từ dòng 5 trở xuống (ví dụ ở đây minh họa 2 dòng A1; A2).
Các dòng giá trị A1; A2;...có các giá trị nhập bất kì có chứa trong cột giá trị ở sheet1.
- Nếu tính từ cột cuối cùng trở về cột B:
+ ví dụ cho dòng giá trị A1: Giá trị xuất hiện đầu tiên là 1 và số ô trống là 0 thì giá trị xuất sang sheet3 ở vị trí tương ứng là a0 (được quy định ở bảng trong sheet1); giá trị tiếp theo xuất hiện là 2 và số ô trống được tính từ giá trị đầu tiên xuất hiện là 3 thì giá trị xuất sang sheet3 ở vị trí tương ứng là b3 (được quy định ở bảng trong sheet1); giá trị tiếp theo xuất hiện là 5 liền kề luôn với giá trị xuất hiện trước thì số ô trống được tính là 0 và giá trị xuất sang sheet3 ở vị trí tương ứng là e0 (được quy định ở bảng trong sheet1); ..v.v.. cứ như vậy tính giá trị đến hết cột B.
* Dòng giá trị A2 cũng đã làm minh họa ở giá trị xuất hiện ở sheet3.
* Các bạn xem file kèm theo sẽ dễ hiểu hơn. Rất mong GPE giúp đỡ trường hợp này. Xin cảm ơn rất nhiều!

Chạy thử code này xem

Option Explicit
Option Base 1

Public Sub NgoWa()
    Dim Vung, I, J, Mg, Tong, Kt
    Kt = Array("a", "b", "c", "d", "e", "g", "h", "i", "k", "l")
    Set Vung = Sheets("CSDL").Range(Sheets("CSDL").[A5], Sheets("CSDL").[A50000].End(xlUp)).Offset(, 1).Resize(, 33)
    ReDim Mg(1 To Vung.Rows.Count, 1 To Vung.Columns.Count)
    Tong = 0
        For J = 1 To Vung.Rows.Count
            For I = Vung.Columns.Count To 1 Step -1
                If Vung(J, I) = "" Then
                    Tong = Tong + 1
                Else
                    Mg(J, I) = Kt(Vung(J, I)) & Tong
                    Tong = 0
                End If
            Next I
                Tong = 0
        Next J
    Sheets("Gia_tri_xuat").[B8].Resize(Vung.Rows.Count, Vung.Columns.Count) = Mg
End Sub

Híc, mỗi lần thấy bạn này hỏi bài là lại có một bài ngồ ngộ
Cell [O9] ở sheet "xuat kết qua" của bạn ra kết quả.....trật lấc
Thân

 

[hcl_pt]

Xin cảm ơn bác concogia rất nhiều! Nhưng bác concogia ơi, ở sheet("Bang_gia_tri_otrong"): thì các giá trị a0; a1;.... là các giá trị tùy ý mình nhập, khi mình thay đổi các giá trị này thì khi tiến hành xuất giá trị tương ứng từ sheet("CSDL") sang sheet("Gia_tri_xuat") thì nó cũng phải thay đổi theo giá trị mình thay đổi ở sheet("Bang_gia_tri_otrong").
- Mong bác concogia xem giúp lại ạ!

 

[tintam7251]

Bạn chỉ cần chỉnh một chút là được mà.

 

[concogia]

Xin cảm ơn bác concogia rất nhiều! Nhưng bác concogia ơi, ở sheet("Bang_gia_tri_otrong"): thì các giá trị a0; a1;.... là các giá trị tùy ý mình nhập, khi mình thay đổi các giá trị này thì khi tiến hành xuất giá trị tương ứng từ sheet("CSDL") sang sheet("Gia_tri_xuat") thì nó cũng phải thay đổi theo giá trị mình thay đổi ở sheet("Bang_gia_tri_otrong").
- Mong bác concogia xem giúp lại ạ!

Bạn đã có rất nhiều bài hỏi trên diễn đàn, bạn thừa biết muốn có câu trải lời chính xác thì câu hỏi phải rõ ràng &.........chính xác, chạy theo các yêu cầu thay đổi liên tục......mệt mỏi lắm ( trừ những thành viên mới chưa biết cách đặt vấn đề)
Híc

 

[hcl_pt]

Xin chân thành cảm ơn bạn tintam7251 và bác concogia đã giúp đỡ. Lời nhắc nhở của bác concogia em xin tiếp thu ạ. Một lần nữa xin cảm ơn GPE!