要使编程排序看起来更好看，可以遵循以下几个原则和实践：
选择合适的排序算法：
不同的排序算法有不同的实现方式和视觉效果。例如，快速排序通常比冒泡排序更简洁且效率更高，而选择排序和插入排序则可以实现更直观的代码结构。
代码格式化：
保持代码整洁和格式化是提高可读性的关键。合理使用缩进、空格和换行，使得代码结构清晰，易于理解。
使用有意义的变量名：
选择描述性强的变量名可以使代码更易于阅读。例如，使用`sortRange`而不是`r`，使用`sortColumn`而不是`c`，使用`sortOrder`而不是`o`。
添加注释：
在代码中添加注释，解释关键步骤和逻辑，有助于其他开发者（或未来的你）更快地理解代码。
错误处理：
在代码中加入错误处理机制，比如使用`try-catch`语句，可以避免程序在遇到错误时崩溃，并且可以提供更友好的错误信息。
使用可视化工具：
如果可能，使用图表或动画来展示排序过程，这样可以使排序过程更加直观。
遵循最佳实践：
学习和遵循所在编程语言和库的最佳实践，这些实践通常已经经过优化，可以提高代码质量和可读性。
测试和验证：
编写测试用例来验证排序算法的正确性，确保它在各种情况下都能正常工作。
通过上述原则和实践，你可以创建出既高效又美观的排序代码。下面是一个简单的快速排序算法的示例，它遵循了上述的一些原则：
```vba
Sub QuickSort（）
On Error GoTo ErrorHandler
Dim ws As Worksheet
Set ws = ActiveSheet
Dim lastRow As Long
lastRow = ws.Cells（ws.Rows.Count, "A"）.End（xlUp）.Row
Dim rng As Range
Set rng = ws.Range（"A1:D" & lastRow）
With rng
.Sort Key1:=.Columns（1）, Order1:=xlAscending, _
Key2:=.Columns（2）, Order2:=xlDescending, _
Header:=xlYes
End With
MsgBox "排序完成!", vbInformation
Exit Sub
ErrorHandler:
MsgBox "哎呀，出错了：" & Err.Description, vbCritical
End Sub
```
在这个示例中，我们使用了VBA编写了一个快速排序的宏，它首先获取工作表的数据范围，然后设置排序规则，并执行排序。代码中包含了错误处理，并且在排序完成后会弹出一个消息框。这样的代码结构清晰，易于理解，且遵循了良好的编程实践。