Làm thế nào để sắp xếp các cột sheet theo kiểu hộ gia đình (Mỗi hộ có nhiều cá nhân)

[luydstk]

Hiện tại mình có file kết xuất từ phần mềm chuyên ngành của mình, nhưng các cá nhân của một hộ lại không sắp xếp liền kề với nhau rất khó xác định. Bạn nào biết cách sắp xếp thứ tự theo kiểu Hộ gia đình, (trong một hộ có một hoặc nhiều cá nhân sắp xếp liền kề với nhau) xin giúp mình, mình chân thành cảm ơn. (Có gửi kèm theo File)

 

[ndu96081631]

Hiện tại mình có file kết xuất từ phần mềm chuyên ngành của mình, nhưng các cá nhân của một hộ lại không sắp xếp liền kề với nhau rất khó xác định. Bạn nào biết cách sắp xếp thứ tự theo kiểu Hộ gia đình, (trong một hộ có một hoặc nhiều cá nhân sắp xếp liền kề với nhau) xin giúp mình, mình chân thành cảm ơn. (Có gửi kèm theo File)

Thì bạn cứ sort lại thôi ---> Sort theo cột Số hộ, sort thêm cột Quan hệ nữa là xong!

 

[ChanhTQ@]

Bạn thêm 1 trang tính có tên là "Xep" & chạy macro sau

Option Explicit
Sub Xep()
 Dim Cls As Range, Sh As Worksheet
 Dim SoHo, Rws As Long
 
 Range("B3:E" & [B65500].End(xlUp).Row).Sort Key1:=Range("B4"), Order1:=1, Key2:=Range("D4") _
   , Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1
 Set Sh = Sheets("Xep"):                  Sheets("Sheet1").Select
 Sh.Cells.ClearContents
 Sh.[B3].Resize(, 2).Value = [B3].Resize(, 2).Value
 For Each Cls In [B3].Resize([B3].CurrentRegion.Rows.Count)
   If SoHo <> Cls.Value Then
      Rws = Sh.[B65500].End(xlUp).Row + 1
      If Cls.Offset(, 1).Value = Cls.Offset(, 3).Value Then
         Sh.Cells(Rws, "B").Value = Cls.Offset(, 1).Value
         Cls.Offset(, 3).Interior.ColorIndex = 35
      End If
      SoHo = Cls.Value:                   Sh.Cells(Rws, "A") = SoHo
   Else
      Sh.Cells(Rws, "IV").End(xlToLeft).Offset(, 1).Value = Cls.Offset(, 1).Value
   End If
 Next Cls
End Sub

Vì bạn chưa đưa ra form mẫu của dữ liệu đích, nên làm vậy thôi!

Để muốn theo iêu cầu, bạn fải đưa form đích lên lần sau nha!

 

[luydstk]

Xin cảm ơn 02 bạn ChanhTQ@ và ndu96081631, Đoạn code của ChanhTQ mình chưa hiểu lắm, nhưng cách của ndu96081631 mình thấy hiệu quả với yêu cầu của mình. Mình rất... cảm ơn bạn, bạn đã giúp mình đỡ phải in hàng ngàn trang giấy. Xin chân thành cảm ơn ndu96081631.