请老师编写程序一次对成绩进行排序

zhjg5961

请老师编写程序一次对成绩进行排序

1、工作表“1成绩排序”是原始数据。

2、工作表“3成绩排序”是想要的结果。

就是把B列隔一列插入，并对各列的成绩排序。

编写程序1.rar (8.31 KB, 下载次数: 40)

2017-4-20 23:39 上传

点击文件名下载附件

小花鹿

录制个宏，然后再加个循环就可以搞定................................................................................

zhjg5961

小花鹿 发表于 2017-4-21 01:12
录制个宏，然后再加个循环就可以搞定.................................................................. ...

老师咋录制呢？

microyip

一个EH高级ID问：咋录制
我也是醉了

yanglainan

用函数只能做到按升序排序，见附件

zhjg5961

朱荣兴 发表于 2017-4-21 09:31
[/code]

请老师给我做一个带操作按钮的附件（我不会做），先谢谢了。

zhjg5961

yanglainan 发表于 2017-4-21 09:13
用函数只能做到按升序排序，见附件

老师：请问你在哪个工作表里面做的？

lzqlaj

Private Sub CommandButton1_Click()
    Dim zhs, k1, ls
    zhs = Sheet1.[B65536].End(xlUp).Row
    ls = Sheet1.Range("iv1").End(xlToLeft).Column
    Sheet2.Columns(1).Value = Sheet1.Columns(1).Value
    For k1 = 1 To ls - 2
        Sheet2.Range(Sheet2.Cells(1, k1 * 2), Sheet2.Cells(zhs, k1 * 2)).Value = Sheet1.Range(Sheet1.Cells(1, 2), Sheet1.Cells(zhs, 2)).Value
        Sheet2.Range(Sheet2.Cells(1, k1 * 2 + 1), Sheet2.Cells(zhs, k1 * 2 + 1)).Value = Sheet1.Range(Sheet1.Cells(1, 2 + k1), Sheet1.Cells(zhs, 2 + k1)).Value
        Sheet2.Range(Sheet2.Cells(1, k1 * 2), Sheet2.Cells(zhs, k1 * 2 + 1)).Sort Key1:=Sheet2.Cells(1, k1 * 2 + 1), Order1:=xlDescending, Header:=xlGuess, OrderCustom:=1
    Next k1
    Sheet2.Activate
End Sub

lzqlaj

按钮见附件。