Em muốn chuyển cột transpose(a2:b10) thành hàng

[khoavu87]

Muốn chuyển 2 cột dữ liệu thành 2 hàng thông qua lập trình vba thì là

Em muốn chuyển cột dữ liệu (a2:b10) thành hàng thông qua sự dụng lập trình vba thì làm bằng cách nào vậy các bác.giúp em với nhé,em đang cần gấp.cảm ơn các anh.
File đính kèm

From Sa_DQ:

Dưới đây là những gì mình nhận được từ bộ thu macro:

Sub TransCopy()
    Range("A2:B10").Select:                   Selection.Copy
    Range("D2").Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
    Application.CutCopyMode = False
End Sub

Vâng em cảm ơn Bác nhiều

 

[khoavu87]

Bác cho em hỏi chút cách mà bác xem CoDe tự động phát sinh khi ta làm bằng ex thế nào vậy bác.thông qua mã lệnh tự phát sinh ta có thể điều chỉnh để viết code đúng ko ạ?
Dưới đây là những gì mình nhận được từ bộ thu macro:

 

[ndu96081631]

Em muốn chuyển cột dữ liệu (a2:b10) thành hàng thông qua sự dụng lập trình vba thì làm bằng cách nào vậy các bác.giúp em với nhé,em đang cần gấp.cảm ơn các anh.
File đính kèm



Vâng em cảm ơn Bác nhiều

Gữi bạn code dạng khác gọn hơn rất nhiều

Sub TransCopy()
  With Range("A2:B10")
    Range("D2").Resize(.Columns.Count, .Rows.Count) _
    = Evaluate("Transpose(" & .Address & " )")
  End With
End Sub

Thử xem!

 

[PhanTuHuong]

Đây là cách tận dụng ưu thế của Excel. Còn về học thuật thì tạo vòng lặp duyệt.