Code điền dữ liệu theo mô hình kim tử tháp

[yankapanda]

Mọi người cho em hỏi, Đây là file code VBA em làm bên dưới, E làm theo mô hình tháp, Ở Sheet SD Information , E sẽ điền dữ liệu cột A, Có dữ liệu cột A rồi sẽ tự động điền dữ liệu cột B , Có dữ liệu cột B rồi sẽ tự động điền dữ liệu từ cột C đến cột AR . Mọi việc sẽ xuông sẽ với điều điện từ cột C đến cột AR chỉ liên quan đến cột B , nhưng e muốn cross check thêm lần nữa là dữ liệu từng hàng trên cột B phải giống với tham số cột A, nhưng sau khi em làm xong lại bị mất dữ liệu xem xét ở cột B. Mà thắc mắc là số hàng xem xét dữ liệu cột B dựa trên số dòng điền ở cột A @@.

Cột A điền 1 dòng thì cột từ cột C đến cột J mất dữ liệu xem xét tại cột B giá trị 1 dòng đầu tiên

Cột A điền 3 dòng thì cột từ cột C đến cột J mất dữ liệu xem xét tại cột B giá trị 3 dòng đầu tiên.

Đây là đoạn code làm em đau đầu nhất
"' Loop to fill in columns C, H, I, L, and E
dataRow = 5
For i = 5 To wsOutbound.Cells(wsOutbound.Rows.Count, "B").End(xlUp).row
poValue = wsOutbound.Cells(i, "B").Value
aValue = wsOutbound.Cells(i, "A").Value
uniqueDict.RemoveAll

For Each cell In rngPO
If cell.Value = poValue Then
If cell.Offset(0, 44).Value = aValue Then '

If Not uniqueDict.Exists(cell.Offset(0, 4).Value) Then

uniqueDict.Add cell.Offset(0, 4).Value, 1
wsOutbound.Cells(dataRow, "E").Value = cell.Offset(0, 4).Value

' [B? di?n d? li?u vào các c?t B, D, F, , J, K]

wsOutbound.Cells(dataRow, "C").Value = cell.Offset(0, 45).Value
wsOutbound.Cells(dataRow, "I").Value = cell.Offset(0, 47).Value
wsOutbound.Cells(dataRow, "D").Value = cell.Offset(0, 46).Value
wsOutbound.Cells(dataRow, "G").Value = poValue
wsOutbound.Cells(dataRow, "F").Value = cell.Offset(0, 2).Value
wsOutbound.Cells(dataRow, "J").Value = cell.Offset(0, 48).Value

dataRow = dataRow + 1
End If
End If
End If
Next cell
Next i"
Nếu bỏ đi sự xem xét ở cột A có nghĩa là bỏ đi đoạn code in đậm thì từ cột C đến cột J lại ra đầy đủ giá trị xem xét của cột B nhưng thiếu đi sự xem xét của cột A.