Đảo vị trí các cột trong Excel? (2 người xem)

[ngocductran2003]

Các bác giúp em với! Em có 1 bảng tính với dữ liệu từ cột A đến cột D. Bây giờ em muốn thay đổi vị trí các cột trong bảng tính ví dụ như ABCD thành DCBA thì làm như thế nào? Không dùng lệnh copy và paste. Thanks!

 

[ptm0412]

Bạn tô chọn từng cột, nhấn giữ phím Shift, rồi dùng chuột trái nắm cột chọn lôi qua phải (drag and drop)
Hoặc bạn click chọn nguyên cột, sau đó dùng chuột phải lôi nguyên cột qua phải, buông ra, chọn Shift Right and Move

 

[ngocductran2003]

Bạn tô chọn từng cột, nhấn giữ phím Shift, rồi dùng chuột nắm cột chọn lôi qua phải (drag and drop)
Hoặc bạn click chọn nguyên cột, sau đó dùng chuột phải lôi nguyên cột qua phải, buông ra, chọn Shift Right and Move

Thank bác! Nhưng em muốn hỏi ngoài cách dùng đó thì có lệnh nào không? Như trong Auto Cad có lệnh mirrow ấy.

 

[ptm0412]

Muốn Mirror thì có Mirror:

Sub Mirror()
Application.ScreenUpdating = False
Cols = [iv1].End(xlToLeft).Column
For i = Cols - 1 To 1 Step -1
Columns(i).Cut
Columns(Cols + 1).Insert shift:=xlToRight
Next
Application.ScreenUpdating = True
End Sub

 

[ngocductran2003]

Muốn Mirror thì có Mirror:

Sub Mirror()
Application.ScreenUpdating = False
Cols = [iv1].End(xlToLeft).Column
For i = Cols - 1 To 1 Step -1
Columns(i).Cut
Columns(Cols + 1).Insert shift:=xlToRight
Next
Application.ScreenUpdating = True
End Sub

Thank bác nhiều! Em dùng được rồi

 

[hoangbakhang]

ngoai canh nay ra minh co ham nao khac ko. Thank cac bac

 

[pdpvinh]

Cho em hỏi là cách drag & drop có áp dụng cho Excel 2007 trở lên không bác, em áp dụng không được T__T

Thank bác nhiều!

 

[ptm0412]

Cho em hỏi là cách drag & drop có áp dụng cho Excel 2007 trở lên không bác, em áp dụng không được T__T

Thank bác nhiều!

Drag and drop áp dụng cho mọi phiên bản 2003, 2007, 2010
Vấn đề là:
- Nhớ nhấn shift nếu kéo bằng chuột trái
- Không nhấn shift khi kéo bằng chuột phải
- Không merge cell

Merge cell mà kéo thả sẽ bị bắt

 

[thanghekhoc90]

Drag and drop áp dụng cho mọi phiên bản 2003, 2007, 2010
Vấn đề là:
- Nhớ nhấn shift nếu kéo bằng chuột trái
- Không nhấn shift khi kéo bằng chuột phải
- Không merge cell

Merge cell mà kéo thả sẽ bị bắt

Xin chào anh cho em hỏi Tại sao em làm như phương pháp của anh mà vẫn không được ạ. Dùng chuột trai giữ Shift thì không thể được. Còn dùng chuột phải kéo qua phải thì khi kéo xong chọn shift Right and more thì nó toàn báo lỗi là "cannot change part of mered cell" là sao ạ .

 

[ptm0412]

Xin chào anh cho em hỏi Tại sao em làm như phương pháp của anh mà vẫn không được ạ. Dùng chuột trai giữ Shift thì không thể được. Còn dùng chuột phải kéo qua phải thì khi kéo xong chọn shift Right and more thì nó toàn báo lỗi là "cannot change part of mered cell" là sao ạ .

Là bị bắt vì merge cell chứ sao.

 

[TrungChinhs]

Các bác giúp em với! Em có 1 bảng tính với dữ liệu từ cột A đến cột D. Bây giờ em muốn thay đổi vị trí các cột trong bảng tính ví dụ như ABCD thành DCBA thì làm như thế nào? Không dùng lệnh copy và paste. Thanks!

Bạn có thể đánh số thứ tự cho cột rồi Sort

 

[thanghekhoc90]

Anh ơi phiền anh có thể làm 1 Video ví dụ không ạ Em làm mà không được ạ. Thứ 6 Em phải nộp bài KT rồi mà giờ vẫn chưa xong ạ. (

 

[thanghekhoc90]

Là bị bắt vì merge cell chứ sao.

TkS anh nhá em hiểu rồi. Bắt mergecell có nghĩa là trong vị trí 2 cột muốn đảo vị trí ta đã dùng lệnh mergecell để hoà ô cho lên lệnh sẽ ko có hiệu lực --> dẫn đến ko thể thực hiện vì vậy muốn thực hiện mà các bạn gặp lỗi như của mình thì ta có thể bôi đen toàn bảng rồi bỏ chọn hoà ô nhá sau đó mới thực hiên được đảo sau khi đảo xong rồi thì ta hoà ô oke . chỗ nào chưa đúng pro chỉnh dùm em.

 

[miko_080888]

Bạn ơi, lệnh này dùng như thế nào ạ, mình không biết cách dùng?

Muốn Mirror thì có Mirror:

Sub Mirror()
Application.ScreenUpdating = False
Cols = [iv1].End(xlToLeft).Column
For i = Cols - 1 To 1 Step -1
Columns(i).Cut
Columns(Cols + 1).Insert shift:=xlToRight
Next
Application.ScreenUpdating = True
End Sub