Macro chuyển Dl của 1 vùng chọn vào 1 cột (1 người xem)

[khongphaiem]

Xin mọi người giúp đỡ.
Mình muốn viết 1 macro như sau.
Xếp các cells trong 1 vùng chon trước vào 1 cột bên cạnh vùng chọn đó sau đó sắp xếp lại cột đó theo giá trị tăng dần.
Mình mày mò mãi mà không làm được vì không biết xác định vị trí cột đầu và cột cuối của vùng mình chọn.
Xin cảm ơn!

 

[Quang_Hải]

Xin mọi người giúp đỡ.
Mình muốn viết 1 macro như sau.
Xếp các cells trong 1 vùng chon trước vào 1 cột bên cạnh vùng chọn đó sau đó sắp xếp lại cột đó theo giá trị tăng dần.
Mình mày mò mãi mà không làm được vì không biết xác định vị trí cột đầu và cột cuối của vùng mình chọn.
Xin cảm ơn!

Thử thế này xem coi sao, không có file nên xác xuất sai là rất cao.

Sub copydl()
   With Selection
      .Copy .Offset(, .Columns.Count)
      .Offset(, .Columns.Count).Select
      Selection.Sort Selection(1)
   End With
End Sub