ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
300集Office 2010微视频教程 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
楼主: qlmgu

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

[复制链接]

TA的精华主题

TA的得分主题

 楼主| 发表于 2023-4-7 09:08 | 显示全部楼层
本帖最后由 qlmgu 于 2023-4-7 09:10 编辑
zpy2 发表于 2023-4-7 08:56
动态生成查询结果?
filter?

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

TA的精华主题

TA的得分主题

发表于 2023-4-7 09:45 来自手机 | 显示全部楼层
qlmgu 发表于 2023-4-7 09:08
zpy2老师您好,又遇到您关注我的问题了。谢谢您。
动态生成查询结果,过滤器,我真不懂。我是希望能将各 ...

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

TA的精华主题

TA的得分主题

 楼主| 发表于 2023-4-7 09:48 | 显示全部楼层

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

TA的精华主题

TA的得分主题

发表于 2023-4-7 10:59 来自手机 | 显示全部楼层
qlmgu 发表于 2023-4-7 09:48
是用您的万能在线工具,赞。但是我想把数据按分数段分开,不知道如何做到。


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




Screenshot_2023-04-07-10-59-32-849_cn.uujian.browser.jpg

TA的精华主题

TA的得分主题

 楼主| 发表于 2023-4-7 11:09 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
zpy2 发表于 2023-4-7 10:59
select *,regexp2('^\d',分数) 分数段 from 总表拆分分表目录按拼音排序;

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

TA的精华主题

TA的得分主题

 楼主| 发表于 2023-4-7 12:04 | 显示全部楼层
根据个别老师的建议,我录制了一个宏,可以实现示范文件的处理。但是不会修改为通用程序。老师们可以帮忙提示下吗?
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

TA的精华主题

TA的得分主题

 楼主| 发表于 2023-4-7 12:17 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
我自己录制了宏,可以重复操作过程。但是能力有限,不会修改录制宏为实际数据处理程序。还希望有老师指导或帮助。谢谢。

TA的精华主题

TA的得分主题

 楼主| 发表于 2023-4-7 14:40 | 显示全部楼层
zpy2 发表于 2023-4-7 10:59
select *,regexp2('^\d',分数) 分数段 from 总表拆分分表目录按拼音排序;

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

TA的精华主题

TA的得分主题

发表于 2023-4-7 16:48 来自手机 | 显示全部楼层
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

评分

1

查看全部评分

TA的精华主题

TA的得分主题

 楼主| 发表于 2023-4-8 08:39 | 显示全部楼层
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.

评分

1

查看全部评分

您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-3-29 23:48 , Processed in 0.047576 second(s), 7 queries , Gzip On, Redis On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表