sắp xếp lại thứ tự các cột?

[nilt02]

Mình không biết nhiều về các hàm nên không tìm được chủ đề nào đã có trong này. Bạn nào có cách làm đơn giản nhất thì chỉ hộ mình nhé chứ copy cut thì chết mất *_*!.
Yêu cầu: Sắp xếp lại thứ tự các cột trong sheet "nhap" theo sheet cho trước là "tonghop". Mục đích sau khi sắp xếp xong mình có thể copy số liệu ngày 15/01/2008 sang sheet "tonghop"
file đi kèm:
View attachment sapxep.xls
cảm ơn các bạn đã đọc và giúp mình ^^

 

[ndu96081631]

Mình không biết nhiều về các hàm nên không tìm được chủ đề nào đã có trong này. Bạn nào có cách làm đơn giản nhất thì chỉ hộ mình nhé chứ copy cut thì chết mất *_*!.
Yêu cầu: Sắp xếp lại thứ tự các cột trong sheet "nhap" theo sheet cho trước là "tonghop". Mục đích sau khi sắp xếp xong mình có thể copy số liệu ngày 15/01/2008 sang sheet "tonghop"
file đi kèm:
View attachment 44266
cảm ơn các bạn đã đọc và giúp mình ^^

Chức năng sort bình thường là được rồi
- Quét chọn dữ liệu tại sheet nhập
- Vào Data\Sort
- Bấm nút Options và check mục Sort left to right

 

[nilt02]

Chức năng sort bình thường là được rồi
- Quét chọn dữ liệu tại sheet nhập
- Vào Data\Sort
- Bấm nút Options và check mục Sort left to right

Bác xem lại hộ em với, nếu soft như bác thì nó phải theo thứ tự nhất định, em muốn sheet nhap sắp xếp trùng cột theo sheet tonghop (có mã có, có mã lại không có)
Cảm ơn bác ^^

 

[chucuoi92]

Bác xem lại hộ em với, nếu soft như bác thì nó phải theo thứ tự nhất định, em muốn sheet nhap sắp xếp trùng cột theo sheet tonghop (có mã có, có mã lại không có)
Cảm ơn bác ^^

Bạn xem file này nhé!
Cõ lẽ là như "vầy"

 

[nilt02]

Bạn xem file này nhé!
Cõ lẽ là như "vầy"

Cảm ơn bạn, cách của bạn rất hay khi dùng hàm INDEX và MATCH, câu lệnh này mình sẽ lưu lại vì không nhớ đc ^^!

 

[coduoiga2010]

anh chị cho em hỏi chút sao em không gửi được viết, đính kèm tập tin lên diễn đàn vậy, vì em không biết cách nào để hỏi lên em mới mượn cách làm này

 

[havietchuong]

anh chị cho em hỏi chút sao em không gửi được viết, đính kèm tập tin lên diễn đàn vậy, vì em không biết cách nào để hỏi lên em mới mượn cách làm này

Bạn chọn đổi sang khung lớn sau đó kích chọn hình ghim kẹp (biểu tượng đính kèm tập tin), chọn đúng tập tin rồi up lên sẽ được.

 

[SA_DQ]

Bạn nào có cách làm đơn giản nhất thì chỉ hộ mình nhé chứ copy cut thì chết mất *_*!.
Yêu cầu: Sắp xếp lại thứ tự các cột trong sheet "nhap" theo sheet cho trước là "tonghop". Mục đích sau khi sắp xếp xong mình có thể copy số liệu ngày 15/01/2008 sang sheet "tonghop"

Để macro làm giúp hoàn toàn cho bạn cái việc chết mất đó, nha!

Option Explicit
Sub XepTheoCot()
 Dim Sh As Worksheet, Clls As Range, Rng As Range, sRng As Range, Rng0 As Range
 Dim Col As Byte
 
 Set Sh = Sheets("Tong Hop"):       Sheets("Nhap").Select
 Col = Sh.[A1].CurrentRegion.Columns.Count
 Set Rng0 = Sh.[B1].Resize(, Col)
 Columns("B:B").Resize(, Col + 1).Insert
 Set Rng = [C1].Offset(, Col).CurrentRegion
 Set Rng = Rng.Cells(1, 1).Resize(, Rng.Columns.Count)
 For Each Clls In Rng0
   Set sRng = Rng.Find(Clls.Value, , xlFormulas, xlWhole)
   If Not sRng Is Nothing Then
      Cells(1, Clls.Column).Resize(65500).Value = Cells(1, sRng.Column).Resize(65500).Value
      sRng.Interior.ColorIndex = 35 + sRng.Column Mod 7
   End If
 Next Clls
End Sub