Tạo copy tại các cột khác nhau trong excel có điều kiện

[buingoclinh0812]

Em xin chào các anh chị trong diễn đàn. Em có một vấn đề này mà không biết giải quyết thế nào.
Em muốn copy cột E, cột H, cột K trong Excel rồi patse vào vào cột B. Khi cột E, cột H, cột K thay đổi giá trị. Vậy mong các anh giúp em viết đoạn code được không ạ.

 

[HUONGHCKT]

Em xin chào các anh chị trong diễn đàn. Em có một vấn đề này mà không biết giải quyết thế nào.
Em muốn copy cột E, cột H, cột K trong Excel rồi patse vào vào cột B. Khi cột E, cột H, cột K thay đổi giá trị. Vậy mong các anh giúp em viết đoạn code được không ạ.

Copy thế nào Dán đè nên hay dán liên tiếp xuống dưới hay nối từng dòng của Dlieu cột E&CotH & cot K rồi paste vào cột B. bạn trình bày mong muốn cụ thể trong File giải định thì tốt hơn là để người khác đoán mò ý của bạn.

 

[buingoclinh0812]

Chào bạn HUONGHCKT. Đầu tiên mình cảm ơn bạn đã quan tâm đến bài viết của mình.
Ý của mình muốn là copy nối từng dòng dữ liệu của cột E, cột H, cột K vào cột B. Và kết quả là như thế này bạn ạ.

 

[HUONGHCKT]

Chào bạn HUONGHCKT. Đầu tiên mình cảm ơn bạn đã quan tâm đến bài viết của mình.
Ý của mình muốn là copy nối từng dòng dữ liệu của cột E, cột H, cột K vào cột B. Và kết quả là như thế này bạn ạ.
View attachment 263625

Dùng thủ Code củ chuối này xem sao.

Public Sub Doncot()
Dim Lr&, t&, Rng As Range
Dim S()
Sheets("VH").Range("B2:B10000").ClearContents
S = Array(5, 8, 11)
For i = 0 To UBound(S)
Set Rng = Sheets("VH").Range(Cells(1, S(i)), Cells(Rows.Count, S(i)))
    Lr = Rng.Find(What:="*", LookIn:=xlValues, SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row 'Sheets("VH").Cells(Rows.Count, S(i)).End(3).Row
        dcuoi = Sheets("VH").Cells(Rows.Count, 2).End(3).Row + 1
            Sheets("VH").Range(Cells(1, S(i)), Cells(Lr, S(i) + 1)).COPY
            Sheets("VH").Cells(dcuoi, 2).PasteSpecial Paste:=xlPasteValues
Next i
End Sub
[code]

 

[buingoclinh0812]

Đúng rồi bạn HuongHCKT à. Bạn làm đúng ý mình. Thật sự cảm ơn bạn.
Bạn có thể cho mình xin số tài khoản của bạn không?. Mình muốn gửi bạn một ít tiền nước non coi như lời cảm ơn của mình với bạn có được không?

 

[buingoclinh0812]

CẢM ƠN BẠN HUONGHCKT NHÉ.