Copy và sắp xếp dữ liệu (3 người xem)

[caico9x]

Tôi có bảng dữ liệu (sheets 1: là danh sách các tên giống nhau nằm rải rác, không kề nhau) tôi muốn copy sheet1 này sang sheet2 với mong muốn là:Các tên giống nhau thì đặt liền kề nhau; hết A1 rồi đến A2....; với điều kiện là các thông tin của "1. Nguyen Van A1" phải sắp xếp theo; tương tự cho các tên A2, A3 khác. tôi có kèm file rất mong các bạn giúp đỡ
Cảm ơn rất nhiều

 

[Hong.Van]

Tôi có bảng dữ liệu (sheets 1: là danh sách các tên giống nhau nằm rải rác, không kề nhau) tôi muốn copy sheet1 này sang sheet2 với mong muốn là:Các tên giống nhau thì đặt liền kề nhau; hết A1 rồi đến A2....; với điều kiện là các thông tin của "1. Nguyen Van A1" phải sắp xếp theo; tương tự cho các tên A2, A3 khác. tôi có kèm file rất mong các bạn giúp đỡ
Cảm ơn rất nhiều

Bạn dùnh lệnh Sort là được mà!.....................

 

[caico9x]

Bạn dùnh lệnh Sort là được mà!.....................

Khi có chức năng auto filter nó ko cho bạn ơi; hơn nữa trong sheets có lúc pass thì ko thực hiện được
mong các bạn giúp đỡ

 

[caico9x]

Xin giúp cho giải pháp với các bạn nhé #1

 

[Kiều Mạnh]

Xin giúp cho giải pháp với các bạn nhé #1

bạn copy sang sheet 2 xong sort A to Z là ok thôi mà. vậy ý muốn sao nữa ...nếu thích code mình viết cho bài này dễ thôi mà

 

[caico9x]

bạn copy sang sheet 2 xong sort A to Z là ok thôi mà. vậy ý muốn sao nữa ...nếu thích code mình viết cho bài này dễ thôi mà

Vậy thì tốt quá các bạn giúp mình nhé; vì sheets1 có lúc đặt pass nên muốn có code
cảm ơn rấ rất nhiều

 

[caico9x]

Xin giúp cho bài này các bạn nhé #1
bạn kieu manh nói : "copy sang sheet 2 xong sort A to Z là ok" tôi đã thực hiện như vậy tg xuyên; nhưng mỗi lần phải copy...so rt..luc được lúc ko, tôi thì còn gà mờ e xcel nên rất muốn có sẳn: ấn một cái là xong... hiohi...rất mong được giải pháp từ GPE

 

[caico9x]

Giúp mình vài dòng các bạn nhé #1

 

[Kiều Mạnh]

Xin giúp cho bài này các bạn nhé #1
bạn kieu manh nói : "copy sang sheet 2 xong sort A to Z là ok" tôi đã thực hiện như vậy tg xuyên; nhưng mỗi lần phải copy...so rt..luc được lúc ko, tôi thì còn gà mờ e xcel nên rất muốn có sẳn: ấn một cái là xong... hiohi...rất mong được giải pháp từ GPE

Thích code thì sử dụng code sau xem có trúng ko nha ... nếu hỏng trúng ta làm lại mình đang tập tành code mà
bạn chỉ cần chuyển Sheet là nó mần thôi nha

Sub Copy_Sort()
With Sheet1.UsedRange
    Sheet2.UsedRange.ClearContents
    Sheet2.Range(.Address).Value = .Value
    Sheet2.Range("C12:G111").Sort [C6]
End With
End Sub

 

[caico9x]

Thích code thì sử dụng code sau xem có trúng ko nha ... nếu hỏng trúng ta làm lại mình đang tập tành code mà
bạn chỉ cần chuyển Sheet là nó mần thôi nha

Sub Copy_Sort()
With Sheet1.UsedRange
    Sheet2.UsedRange.ClearContents
    Sheet2.Range(.Address).Value = .Value
    Sheet2.Range("C12:G111").Sort [C6]
End With
End Sub

Cảm ơn bạn kieu manh, trúng rồi bạn ah
-------------
P/S -bạn cho cột B chạy theo luôn giúp tSotuyệt---->thế này có đúng ko ah "Sheet2.Range("b12:G111").Sotuyê
-Có thể bạn giữ nguyên định dạng trang in thìcàng tuyệt
Cảm ơn bạn rất nhiều

 

[Kiều Mạnh]

Cảm ơn bạn kieu manh, trúng rồi bạn ah
-------------
P/S bạn cho cột B chạy theo luôn giúp tôi với
Cảm ơn

bạn muốn cột nào thì sửa chữ ("C12:G111") đo đỏ nha

 

[caico9x]

bạn muốn cột nào thì sửa chữ ("C12:G111") đo đỏ nha

Muốn giữ nguyên định dạng trang in như sheets 1 được ko bạn

 

[Kiều Mạnh]

Muốn giữ nguyên định dạng trang in như sheets 1 được ko bạn

Tự xử đi xem... tập diết mai mốt code viết phà phà liền thôi mà

 

[caico9x]

Tự xử đi xem... tập diết mai mốt code viết phà phà liền thôi mà

Nghe bạn Kieu manh: Có lẽ Noel xong đăng kí học khóa lập trình để xử mấy vụ này thôi, trong lúc chưa tự tử được bạn giúp mình phát nữa nhé ...hiohi..
Cảm ơn các bạn

 

[Kiều Mạnh]

Nghe bạn Kieu manh: Có lẽ Noel xong đăng kí học khóa lập trình để xử mấy vụ này thôi, trong lúc chưa tự tử được bạn giúp mình phát nữa nhé ...hiohi..
Cảm ơn các bạn

Vậy thì đổi kiểu chơi nha
nếu muốn copy thì chạy code này

Sub Copy_AddSheet()
With Sheet1
   .[A1].MergeCells = False
   .UsedRange.Copy
End With
Sheets.Add
ActiveSheet.Paste
Range("B12:G111").Sort [C6]
Application.CutCopyMode = False
End Sub

copy nhiều quá chán muốn xoá thì sử dụng code này

Sub Delete_Sheet()
Dim sh As Worksheet
Application.DisplayAlerts = False
For Each sh In ThisWorkbook.Sheets
    If UCase(sh.CodeName) <> "SHEET1" And UCase(sh.CodeName) <> "SHEET2" Then
        sh.Delete
    End If
Next
Application.DisplayAlerts = True
End Sub

nều muốn học thì GPE là nơi tốt nhất cho bạn học.... mình cũng lớn dần từ đây... chúc thành công