xin code xử lý file packing list (1 người xem)

[giaohk11]

Mình có file packing list như đính kèm [Packing List], từ các cặp cột thông tin "Size" và "qty" tương ứng ( I:J, K:L, M:N, O:.P, ....) mình muốn chuyển tất cả các cặp cột này về cặp cột I:J ( Sheet "Detail").
mình thực hiện copy/paste từng cặp cột dễ bị sai.
Mong ACE nào có thể chia sẻ giúp đoạn code để có thể xử lý yêu cầu này.
Chân thành cảm ơn ACE,

 

[SA_DQ]

Sub ChuyenVi()
 Dim Rws As Long, J As Long, W As Long, Col As Integer, Cot As Integer
 Dim Arr()
 
 Sheets("Packing List").Select
 Arr() = [H2].CurrentRegion.Offset(1).Value
 Rws = UBound(Arr())
 ReDim aKQ(1 To 7 * Rws, 1 To 10)
 Sheets("Detail").[A2].Resize(7 * Rws, 10).Value = aKQ()
 For J = 1 To UBound(Arr())
1    For Col = 9 To 20 Step 2
        W = W + 1
        For Cot = 1 To 8
            aKQ(W, Cot) = Arr(J, Cot)
        Next Cot
        aKQ(W, 9) = Arr(J, Col): aKQ(W, 10) = Arr(J, Col + 1)
    Next Col
 Next J
 If W Then Sheets("Detail").[A2].Resize(W, 10).Value = aKQ()
End Sub

Vui nếu macro nó hỗ trợ bạn tẹo nào đó!

 

[giaohk11]

Sub ChuyenVi()
 Dim Rws As Long, J As Long, W As Long, Col As Integer, Cot As Integer
 Dim Arr()
 
 Sheets("Packing List").Select
 Arr() = [H2].CurrentRegion.Offset(1).Value
 Rws = UBound(Arr())
 ReDim aKQ(1 To 7 * Rws, 1 To 10)
 Sheets("Detail").[A2].Resize(7 * Rws, 10).Value = aKQ()
 For J = 1 To UBound(Arr())
    For Col = 9 To 20 Step 2
        W = W + 1
        For Cot = 1 To 8
            aKQ(W, Cot) = Arr(J, Cot)
        Next Cot
        aKQ(W, 9) = Arr(J, Col): aKQ(W, 10) = Arr(J, Col + 1)
    Next Col
 Next J
 If W Then Sheets("Detail").[A2].Resize(W, 10).Value = aKQ()
End Sub

Vui nếu macro nó hỗ trợ bạn tẹo nào đó!

@SA_DQ , cám ơn rất nhiều!

 

[giaohk11]

@SA_DQ , cho mình hỏi thêm: khi packing list mở rộng các cặp cột thông tin Size/qty về phía bên phải, ví dụ từ I:J,, ...AY:AZ thì cần thay đổi code như thế nào. cám ơn nhiều.

 

[SA_DQ]

Thì bạn thay con số 20 bỡi con số tương ứng tại dòng lệnh mình vừa nhập chỉ số dòng.
& con số 7 của dòng lệnh trước nó cũng sẽ phải thay tương ứng (với số cột)

[Bạn nên viết hoa đầu câu].

 

[giaohk11]

@SA_DQ , Cám ơn nhiều!