合并列及拷贝不同分数段的数据到新工作表

qlmgu

zpy2 发表于 2023-4-7 08:56
动态生成查询结果？
filter？

zpy2老师您好，又遇到您关注我的问题了。谢谢您。
动态生成查询结果，过滤器，我真不懂。我是希望能将各个不同分数段数据（姓名加分数）拷贝到不同的页。例如，100分的一页，90-的一页，80-的一页。因为后面还要继续处理每个分数段的数据。去microsoft提问，由于问题设计凌乱，未能得到帮助。在下再次先谢谢老师了。

zpy2

qlmgu 发表于 2023-4-7 09:08
zpy2老师您好，又遇到您关注我的问题了。谢谢您。
动态生成查询结果，过滤器，我真不懂。我是希望能将各 ...

https://club.excelhome.net/forum.php?mod=viewthread&tid=1647951&mobile=

qlmgu

zpy2 发表于 2023-4-7 09:45
https://club.excelhome.net/forum.php?mod=viewthread&tid=1647951&mobile=

是用您的万能在线工具，赞。但是我想把数据按分数段分开，不知道如何做到。

zpy2

qlmgu 发表于 2023-4-7 09:48
是用您的万能在线工具，赞。但是我想把数据按分数段分开，不知道如何做到。

select *,regexp2('^\d',分数) 分数段 from 总表拆分分表目录按拼音排序;

qlmgu

zpy2 发表于 2023-4-7 10:59
select *,regexp2('^\d',分数) 分数段 from 总表拆分分表目录按拼音排序;

感谢老师再次用您的好工具帮我处理问题。我试试。

qlmgu

根据个别老师的建议，我录制了一个宏，可以实现示范文件的处理。但是不会修改为通用程序。老师们可以帮忙提示下吗？
Sub 宏1()
    Range("B2:B13").Select
    Selection.Cut
    Range("A14").Select
    ActiveSheet.Paste
    Columns("B:B").Select
    Selection.Delete Shift:=xlToLeft
    Range("B2:B13").Select
    Selection.Copy
    Range("B14").Select
    ActiveSheet.Paste
    ActiveWindow.SmallScroll Down:=-24
    Columns("A:B").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("D1").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add2 Key:=Range("E2:E25") _
        , SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Sheet1").Sort
        .SetRange Range("D1:E25")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("D1:E9").Select
    Selection.Copy
    Sheets.Add After:=ActiveSheet
    Sheets("Sheet2").Select
    Sheets("Sheet2").Name = "100"
    Range("A1").Select
    ActiveSheet.Paste
    Range("F10").Select
    Sheets("Sheet1").Select
    Range("D10").Select
    ActiveWindow.SmallScroll Down:=3
    Range("D10:E15").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets.Add After:=ActiveSheet
    ActiveSheet.Paste
    Sheets("Sheet3").Select
    Sheets("Sheet3").Name = "90"
    Range("G17").Select
    Sheets("Sheet1").Select
    Range("D16").Select
    ActiveWindow.SmallScroll Down:=3
    Range("D16:E21").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets.Add After:=ActiveSheet
    ActiveSheet.Paste
    Sheets("Sheet4").Select
    Sheets("Sheet4").Name = "80"
    Range("E15").Select
    Sheets("Sheet1").Select
    ActiveWindow.SmallScroll Down:=9
    Range("D22:E25").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets.Add After:=ActiveSheet
    ActiveSheet.Paste
    Sheets("Sheet5").Select
    Sheets("Sheet5").Name = "70"
    Range("H17").Select
    ActiveWindow.SmallScroll Down:=-12
    Sheets("Sheet1").Select
    ActiveWindow.SmallScroll Down:=-12
    ActiveWindow.ScrollRow = 3
    ActiveWindow.ScrollRow = 2
    ActiveWindow.ScrollRow = 1
End Sub

qlmgu

我自己录制了宏，可以重复操作过程。但是能力有限，不会修改录制宏为实际数据处理程序。还希望有老师指导或帮助。谢谢。

qlmgu

zpy2 发表于 2023-4-7 10:59
select *,regexp2('^\d',分数) 分数段 from 总表拆分分表目录按拼音排序;

zpy2老师，抱歉，我年纪大了，没记住怎么才能找到您帮我做的在线结果了。

zpy2

qlmgu 发表于 2023-4-7 14:40
zpy2老师，抱歉，我年纪大了，没记住怎么才能找到您帮我做的在线结果了。

http://e.anyoupin.cn/ceshi/jstest/pull_up_demo.php?s=%E6%80%BB%E8%A1%A8%E6%8B%86%E5%88%86

qlmgu

zpy2 发表于 2023-4-7 16:48
http://e.anyoupin.cn/ceshi/jstest/pull_up_demo.php?s=%E6%80%BB%E8%A1%A8%E6%8B%86%E5%88%86

zpy2老师，我终于看到了。再次感谢您和您的万能程序。如果能把不同分数段的数据分别拷贝到新表就更完美了。无论如何都感谢您。someone in stackoverflow helped me with a macro that did the 2jobs.