向一张表中各行填加与另一张表对应的行号

ahyyf · 发表于 2013-12-25 21:36

请教高手帮忙：表《职称》已形成纸质文件上报了，不能变动顺序了，要求：用“宏”将上表《名单》按这个顺序排，以便上级核对。所以，希望在《名单》表“F”列中标出《职称》中的所对应的行号，以便排序，同纸质《职称》表顺序一致。谢谢！

根据一张表的对应行号提取到另一表中.rar (3.92 KB, 下载次数: 7)

zhaogang1960 · 发表于 2013-12-25 21:47

自定义排序请参考：

Sub Macro1()
Dim arr, i&
arr = Sheets("职称").Range("A2:A" & Sheets("职称").Range("A65536").End(xlUp).Row)
For i = 1 To UBound(arr)
arr(i, 1) = "" & arr(i, 1)
Next
Application.AddCustomList ListArray:=arr
Range("A1").CurrentRegion.Sort Key1:=Range("a2"), Order1:=1, Header:=xlYes, _
OrderCustom:=Application.CustomListCount + 1
Application.DeleteCustomList ListNum:=Application.CustomListCount
End Sub

复制代码

zhaogang1960 · 发表于 2013-12-25 21:49

请看附件

根据一张表的对应行号提取到另一表中.rar (10.03 KB, 下载次数: 32)

ahyyf · 发表于 2013-12-25 21:56

zhaogang1960 发表于 2013-12-25 21:49
请看附件

又是赵老师帮忙，非常感谢，祝您圣诞节快乐！

ahyyf · 发表于 2013-12-25 22:03

zhaogang1960 发表于 2013-12-25 21:49
请看附件

赵老师：您好，还想请您帮忙解决一下这个问题，在附件中。谢谢！

求助：成绩合并3.rar (4.45 KB, 下载次数: 4)

zhaogang1960 · 发表于 2013-12-25 22:56

ahyyf 发表于 2013-12-25 22:03
赵老师：您好，还想请您帮忙解决一下这个问题，在附件中。谢谢！

Sub Macro1()
Dim arr, brr, crr(), d As Object, i&, r
Set d = CreateObject("scripting.dictionary")
arr = Sheets("地生考试成绩").Range("A1").CurrentRegion
For i = 2 To UBound(arr)
d("" & arr(i, 1)) = i
Next
With Sheets("中考成绩")
brr = .Range("A1").CurrentRegion
ReDim crr(2 To UBound(brr), 1 To 3)
For i = 2 To UBound(brr)
r = d("" & brr(i, 1))
If r <> "" Then
crr(i, 1) = arr(r, 5)
crr(i, 2) = arr(r, 6)
If brr(i, 2) <> arr(r, 2) Then crr(i, 3) = arr(r, 2)
End If
Next
.[k2].Resize(i - 2, 3) = crr
End With
End Sub

复制代码

zhaogang1960 · 发表于 2013-12-25 22:57

两个工作表A列要求全匹配，否则查不到
请测试附件

求助：提取上次考试成绩到今天的考试成绩表中.rar (11.03 KB, 下载次数: 24)

ahyyf · 发表于 2013-12-28 21:50

zhaogang1960 发表于 2013-12-25 22:57
两个工作表A列要求全匹配，否则查不到
请测试附件

赵老师：您好！我发的表格中对应的号是《中考成绩》的" J "列与《地生考试成绩》的“ A ”列。《地生考试成绩》的人数要比《中考成绩》的人多，因为《地生考试成绩》是2012年考试的，《中考成绩》是2013年考试的，中考成绩要用到2012年地理、生物成绩，所以要进行提取，并核对人员是否有不同的。
这个的想法能实现吗？谢谢！

zhaogang1960 · 发表于 2013-12-28 21:52

ahyyf 发表于 2013-12-28 21:50
赵老师：您好！我发的表格中对应的号是《中考成绩》的" J "列与《地生考试成绩》的“ A ”列。《地生考试 ...

看不懂，请上传附件，模拟效果说明

ahyyf · 发表于 2013-12-28 22:50

zhaogang1960 发表于 2013-12-28 21:52
看不懂，请上传附件，模拟效果说明

求助：成绩合并aa.rar (7.3 KB, 下载次数: 2)

		自动登录	找回密码
密码			免费注册

向一张表中各行填加与另一张表对应的行号

评分