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

qlmgu

多次得到各位老师帮助，特别感激。又有一个困难想请老师们帮助。谢谢各位老师。

1.合并A、B列姓名（B列拷贝到A列行末）；2.合并后的数据按分数排序；3.按分数段，把合并和排序后的数据拷贝到新表。





合并列和拷贝数据到不同工作表.rar (14.57 KB, 下载次数: 16)

2023-4-6 22:25 上传

点击文件名下载附件

taller

taller

合并列和拷贝数据到不同工作表.zip (22.16 KB, 下载次数: 12)

2023-4-7 01:45 上传

点击文件名下载附件

mmwwdd

taller 发表于 2023-4-7 01:45

厉害，凌晨不休息，就在论坛中帮助别人，这是什么精神？

zxsea_7426

1. Sub MergeAndSort()
   
2.     With Sheet1
   
3.         ar = .[a1].CurrentRegion.Resize(, 3)
   
4.         ReDim arr(1 To UBound(ar) * 2 - 1, 1 To 2)
   
5.         For j = 1 To 2
   
6.             For i = 2 To UBound(ar)
   
7.                 n = n + 1
   
8.                 arr(n, 1) = ar(i, j)
   
9.                 arr(n, 2) = ar(i, 3)
   
10.             Next i
    
11.         Next j
    
12.         .[E2].Resize(UBound(arr), 2) = arr
    
13.         .[E2].Resize(UBound(arr), 2).Sort key1:=.[f2], order1:=2, Header:=xlNo
    
14.     End With
    
15. End Sub

复制代码

qlmgu

taller 发表于 2023-4-7 01:45

taller老师、版主，非常感谢您深夜出手援助，感激不尽。还在体验和学习您的方法。

qlmgu

zxsea_7426 发表于 2023-4-7 06:43

zxsea_7426老师您好。非常感谢您出手相助，您编写的程序很好，完成了我需要的第一步。能否冒昧再请您帮忙实现把不同分数段的数据分别拷贝到专门设立的新表吗。表名用分数段表示，例如100,90，80，......
感谢您。

qlmgu

mmwwdd 发表于 2023-4-7 05:54
厉害，凌晨不休息，就在论坛中帮助别人，这是什么精神？

慷慨助人，奉献社会的精神。点赞。

qlmgu

各位老师，能否冒昧请您们继续帮忙实现把不同分数段的数据分别拷贝到专门设立的新表吗。表名用分数段表示，例如100,90，80，......。这些都是我日常手工操作处理的问题，如能程序化就解放在下的乏味体力劳动了。谢谢各位。

zpy2

qlmgu 发表于 2023-4-7 08:39
各位老师，能否冒昧请您们继续帮忙实现把不同分数段的数据分别拷贝到专门设立的新表吗。表名用分数段表示， ...

动态生成查询结果？
filter？