|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
2003是这样- Sub MySort()
- Dim i&, k&, Arr, MyStrA$
- Application.ScreenUpdating = False
- Application.Calculation = xlManual
- k = Range("k65536").End(3).Row
- Arr = Range("k1:k" & k)
- ' ReDim Preserve Arr(1 To k, 1 To 2)
- For i = 1 To UBound(Arr)
- MyStrA = Arr(i, 1)
- If InStr(1, MyStrA, "左") Then
- Arr(i, 1) = Replace(Arr(i, 1), "左", "") & "左"
- 'Arr(i, 2) = "左"
- ElseIf InStr(1, MyStrA, "右") Then
- Arr(i, 1) = Replace(Arr(i, 1), "右", "") & "右"
- 'Arr(i, 2) = "右"
- End If
- Next i
- Arr(1, 1) = "排序字段一"
- [Y1].Resize(k, 1) = Arr
- Range("A1:Y" & k).Sort Key1:=Range("Y2"), Order1:=xlAscending, Header:=xlYes, _
- OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
- :=xlPinYin, DataOption1:=xlSortNormal
- Application.Calculation = xlCalculationAutomatic
- Application.ScreenUpdating = True
- MsgBox ("搞好了!")
- End Sub
复制代码 |
|