以下图片中的内容如何按要求排序

up501813573

[img]file:///C:\Users\Administrator\AppData\Roaming\Tencent\Users\911176907\QQ\WinTemp\RichOle\_@[%Q2B}45]%]V]OM$6X8WP.png[/img] 要求：如何对第一个BEGIN以下的内容进行排序，直到下一个BEGIN出现。排序时，对于负数而言，取其绝对值按从小到大排序，对于非负数，也按照从小到大排序。

up501813573

求助各位大神

leoparddi

弄个辅助列

lss001

Sub 排序()
s =[a1] .End(4).Row
cells(s + 1, 1)= "BEGIN"
x  = [a1].End(4).Row
y =Application. countif(range("a1:a" & x) , "BEGIN")
ar = range("a1:b" & x)
redim br(1 To x, 1 To 2), cr(1 To y)
for i = 1 To  x
      IF  IsNumeric(ar(i , 1)) Then
             br(i , 1) = Abs(ar(i , 1))
      Else
            br(i , 1) = ar(i , 1)
      EndIF
            br(i , 2)= ar(i , 2)
      IF ar(i, 1) = "BEGIN" Then
            m = m+ 1
             cr(m)= i
      EndIF
Next
[d1].Resize(x, 2)= br
for j = 1To y - 1
       range(cells(cr(j) + 1, 4), cells(cr(j + 1) - 1, 5))
       .Sort Key1:=range("d" & cr(j) +1), Order1:=2
Next
      range(cells(x, 1) , cells(x, 4)).ClearContents

lss001

lss001 发表于 2017-5-18 16:53
Sub 排序()
s =[a1] .End(4).Row
cells(s + 1, 1)= "BEGIN"

上楼最后应增加
End  Sub