excel - 在给定范围内选择 n 行的块并将它们降序排序 - VBA Excel

Question

我正在学习 Excel 中 VBA 编码的基础知识。我正在尝试创建一个 VBA 代码来选择一个范围内的“n”块（给定的行数），然后将这些行从最高数到最低数进行排序。请看下面的例子。有任何想法吗？。预先感谢。

所需范围。

选定的块

所需的排序

Answer 1

尝试解决这个问题。

sub meh()
    dim i as long, rws as long

    rws=4

    with worksheets(1)
        for i=rws+1 to .cells(.rows.count, "A").end(xlup).row step rws *2
            with .cells(i, "A").resize(rws, 1)
                .Sort Key1:=.cells(1), Order1:=xldescending, _
                      Orientation:=xlTopToBottom, Header:=xlNo
            end with
        next i
    end with

end sub