Cảm ơn Gitiho và đã update “Chữa bài tập” chương 2 cho học viên Bài

Gitiho ơi, hình như Microssoft 2010 không có flash fill nhỉ ? Mình vào File / Options / Advande / Editing Options mà không tìm thấy Flash fill để enable :((((

chào bạn từ phiên bản 2013 trở lên mới có flash fill nhé, bạn đang muốn tách họ tên đúng không?

Dạ vâng đúng ạh. Trong bài 13 của chương 2 (chữa btap) e thấy Thầy gthieu flash fill nên e hỏi ạh.

Chào bạn bạn có thể sử dụng Function như sau

Function TachHo(S As String, Kytu As String, Optional kieutach As Integer = 0) As String
    Dim Arr As Variant
    S = Application.WorksheetFunction.Trim(S)
    Arr = Split(S, Kytu)
    If (kieutach = 0) Then
        TachHo = Arr(0)
    ElseIf (kieutach = 1) Then
       TachHo = Trim(Mid(S, Len(Arr(0)) + 1, Len(S) - Len(Arr(0)) - Len(Arr(UBound(Arr)))))
    ElseIf (kieutach = 2) Then
        TachHo = Arr(UBound(Arr))
    End If
End Function

Dạ vâng em cảm ơn Thầy ạh. Khi nào học xong khoá VBA01 em sẽ học tiếp VBA02

Sao nó cứ chạy luôn dòng Tổng Cộng theo mục sắp xếp luôn Thầy ơi.

Chào bạn bạn có thể mô tả rõ hơn phần bạn muốn hỏi không?

Nó bị lỗi trộn luôn dòng Tổng Cộng lên giữa theo thứ tự Tên NV. Em chỉnh lại được rùi ah. Em cảm ơn.

Chúc bạn học tốt

Chào thầy ạ,

Code của em như bên dưới nhưng em thây sort không đúng theo tên (cột tên là cột C) ạ

Dim dongcuoi As Long

dongcuoi = Sheets("Sheet2").Range("C" & Rows.Count).End(xlUp).Row

    ActiveWorkbook.Worksheets("Sheet2").Sort.SortFields.Add Key:=Range("C2:C" & dongcuoi) _

        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

    With ActiveWorkbook.Worksheets("Sheet2").Sort

        .SetRange Range("A1:J62")

        .Header = xlYes

        .MatchCase = False

        .Orientation = xlTopToBottom

        .SortMethod = xlPinYin

        .Apply

    End With

End Sub

Trong File của em có các bạn tên bắt đầu bằng chữ A & B nữa nhưng không chạy a

Chào bạn bạn thử lọc bằng sort xem kết quả ra thế nào? nếu đúng thì chạy bằng code sẽ chính xác bạn nhé.

Em vừa check lai custom sort của em đang theo level sort nên em delete hết level thì chạy code ok a