Snasui Excel Forum

:D กรุณาแนบไฟล์ตัวอย่างพร้อม Code ทั้งชี้ให้เห็นว่สาต้องการคำตอบเป็นอย่างไรมาด้วยเพื่อจะได้สะดวกในการทดสอบครับ

With Sheets("F").Sort
        .SortFields.Clear
        .SortFields.Add _
        Key:=Range("d" & 1 & ":" & "d" & xz), _
        SortOn:=xlSortOnValues, _
        Order:=xlAscending, _
        CustomOrder:="BASE", _  '********
        DataOption:=xlSortNormal
        .SetRange Range("A" & 1 & ":" & "o" & xz)
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
 End With
 

[code]
With Sheets("F").Sort
.SortFields.Clear
.SortFields.Add _
Key:=Range("d" & 1 & ":" & "d" & xz), _
SortOn:=xlSortOnValues, _
Order:=xlAscending, _
CustomOrder:="BASE", _ '********
DataOption:=xlSortNormal
.SetRange Range("A" & 1 & ":" & "o" & xz)
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
[/code]

ตรงเครื่องหมาย ******** จริงๆแล้วในไฟล์เป็น BASE040
อยากให้โค๊ด sort แบบ left((" "),4) หาเฉพาะคำว่า BASE คำที่เกิดมาให้ไม่สนใจ
ผมต้องใส่คำว่า left(" ",4) ตรงบรรทัดไหนของ code หรอครับ

:cry: :cry: :cry: :cry: :cry: :cry: :cry: