如何根据原始表中关键列年级+学科+班级不用辅助列生成目标表

yzyyyyyyy

原始表：关键列年级+学科+班级

目标表：根据原始表中关键列年级+学科+班级，直接生成目标表，不用辅助列（演示用，实际中没有辅助列） 如何根据原始表中关键列年级 学科 班级不用辅助列生成目标表.rar (2.3 KB, 下载次数: 20)

2024-5-29 14:15 上传

点击文件名下载附件

Qs18

试一下。。。

Qs18

Sub test()
Dim Sql$, line&, i&
    Application.ScreenUpdating = False
     Set cnn = CreateObject("adodb.connection")
    Set rst = CreateObject("ADODB.RecordSet")
    With cnn
        .Open "Provider=Microsoft.Ace.oledb.12.0;extended properties='excel 12.0;HDR=yes';data source=" & ThisWorkbook.FullName
        Sql = "select * from [原始表$A:I] order by 年级,学科,班级 "
       End With
       rst.Open Sql, cnn, 1, 3
Sheet2.Range("a2:i10000").Clear
Sheet2.[A2].CopyFromRecordset rst
Application.ScreenUpdating = True
cnn.Close
Set cnn = Nothing
MsgBox "完成！"
End Sub

Qs18

试一下。。。。

松永

参与一下，试试

ykcbf1100

你这属于重复发帖了吧。

yzyyyyyyy

ykcbf1100 发表于 2024-5-29 17:07
你这属于重复发帖了吧。

不是重复，是最后一步，排序

ykcbf1100

yzyyyyyyy 发表于 2024-5-29 17:27
不是重复，是最后一步，排序

多列排序。。。

ykcbf1100

多列排序。。。

1. Sub 多条件排序()   '//2024.5.29
   
2.     With Sheets("原始表")
   
3.         r = .Cells(Rows.Count, 1).End(3).Row
   
4.         Set Rng = Range("A2:i" & r)
   
5.         With Rng
   
6.             .Parent.Sort.SortFields.Clear
   
7.             .Sort key1:=.Item(2), order1:=1, key2:=.Item(3), order2:=1, key3:=.Item(4), order3:=1, Header:=2
   
8.         End With
   
9.     End With
   
10.     MsgBox "OK！"
    
11. End Sub
    
12. 
    

复制代码

yzyyyyyyy

ykcbf1100 发表于 2024-5-29 17:29
上个帖子中，我不是已经排序好了吗？

每一行，按参数表中项目名称顺序排列。即最后的结果是再按年级+学科+班级，三个列相加，再排序。这里版本低，不支持，   
            .Parent.Sort.SortFields.Clear
            .Sort key1:=.Item(2), order1:=1, key2:=.Item(3), order2:=1, key3:=.Item(4), order3:=1, Header:=2
        End With