用VBA让选定单元格按文本内容排序

即在excel中任意选定一个区域，执行宏后，都可以将此区域内的单元格按照其内容排序，比如将单元格内为“猪头1"的放在选定区域的第一行，“猪头2”的放在第二行

---

Columns("D:D").Select

Selection.Sort Key1:=Range("D1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
:=xlPinYin, DataOption1:=xlSortNormal
以掘锋简上代码是在D列按1，2，3……顺序判裤排序，应基桐该可以解决问题

---

你直接录制宏，把录制好的宏中的代码单元格区域的代码替换成selection.即可

---

这个功能直接用excel自带的排序不就可以了, 不选择扩展区域即可

---