|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
- Sub test()
- Dim ar, i&, j&, n&
- With ActiveSheet
- ar = .[A1].CurrentRegion
- j = UBound(ar, 2)
- .[A2].Resize(UBound(ar) - 1, 1).TextToColumns Destination:=.[A2].Offset(0, j), Other:=True, OtherChar:="-"
- ar = .[A1].CurrentRegion
- For n = UBound(ar, 2) To j + 1 Step -1
- .[A1].CurrentRegion.Sort key1:=.[A1].Offset(0, n - 1), order1:=xlAscending, Header:=xlYes
- Next n
- .[A2].Offset(0, j).Resize(UBound(ar) - 1, UBound(ar, 2) - j).ClearContents
- End With
- End Sub
复制代码
|
|