Nhờ hỗ trợ code copy (1 người xem)

[nguyen trunghoa]

Tôi có 1 file "Mau" (có gửi kèm). Ở sheet 1 là danh sách các nơi gửi về. Tôi cần thiết lập 1 mẫu như sheet 2 vậy phải viết code như thế nào?

 

[Ba Tê]

Tôi có 1 file "Mau" (có gửi kèm). Ở sheet 1 là danh sách các nơi gửi về. Tôi cần thiết lập 1 mẫu như sheet 2 vậy phải viết code như thế nào?

Đại khái nó là thế này:

Public Sub GPE()
Dim sArr(), dArr(), I As Long
sArr = Sheet1.Range("A6", Sheet1.Range("A6").End(xlDown)).Resize(, 6).Value
ReDim dArr(1 To UBound(sArr), 1 To 7)
For I = 1 To UBound(sArr)
    dArr(I, 1) = sArr(I, 1): dArr(I, 2) = sArr(I, 2)
    dArr(I, 5) = sArr(I, 3): dArr(I, 6) = sArr(I, 5): dArr(I, 7) = sArr(I, 6)
Next I
Sheet2.Range("A6").Resize(I - 1, 7) = dArr
End Sub

 

[nguyen trunghoa]

Cảm ơn bạn Ba Tê, mình đã làm được rồi nhưng để áp dụng cho các trường hợp tương tự mình chưa hiểu do mới học, nhờ bạn giải thích ý nghĩa đoạn code mà bạn đã viết dùm.

 

[Ba Tê]

Cảm ơn bạn Ba Tê, mình đã làm được rồi nhưng để áp dụng cho các trường hợp tương tự mình chưa hiểu do mới học, nhờ bạn giải thích ý nghĩa đoạn code mà bạn đã viết dùm.

Tôi không biết giải thích. Nếu viết kiểu đó khó hiểu thì bạn "ngâm cứu" kiểu này:

Public Sub GPE()
Dim Rws As Long
With Sheet1
    Rws = .Range("A60000").End(xlUp).Row   'Xác định dòng cuối, cột A, sheet1'
    .Range("A6:B" & Rws).Copy Sheet2.Range("A6")   'Copy các cột sheet1, từ dòng 6 đến dòng Rws, sang sheet2'
    .Range("C6:C" & Rws).Copy Sheet2.Range("E6")
    .Range("E6:F" & Rws).Copy Sheet2.Range("F6")
End With
Sheet2.Range("A6:G" & Rws).Borders.LineStyle = 1  'Kẻ khung sheet2'
End Sub

 

[nguyen trunghoa]

Hiểu rồi , cảm ơn bạn.