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
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
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à
Sub Copy_Sort()
With Sheet1.UsedRange
Sheet2.UsedRange.ClearContents
Sheet2.Range(.Address).Value = .Value
Sheet2.Range("C12:G111").Sort [C6]
End With
End SubCảm ơn bạn kieu manh, trúng rồi bạn ah
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à
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..
Vậy thì đổi kiểu chơi nha
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 SubSub 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
