有两个Excel表格,表一人员名单不全且混乱,表二人员名单齐全且已经归类
有两个Excel表格,表一人员名单不全且混乱,表二人员名单齐全且已经归类好,怎么将表一中的人员按表二进行自动分类？...
有两个Excel表格,表一人员名单不全且混乱,表二人员名单齐全且已经归类好,怎么将表一中的人员按表二进行自动分类？
展开
2个回答
展开全部
使用VLOOKUP函数也许可以解决，因完全不清楚你数据表的构成，大致提供步骤如下：
首先，清空表一中的分类列内容。
然后，在分类列中的首行输入VLOOKUP函数，（在表二中查找表一对应行的人员名并返回到该单元格）拖动下拉至所有行。
最后，选中分类行进行复制然后在分类行的第一个单元格右击选择“粘贴值”
首先，清空表一中的分类列内容。
然后，在分类列中的首行输入VLOOKUP函数，（在表二中查找表一对应行的人员名并返回到该单元格）拖动下拉至所有行。
最后，选中分类行进行复制然后在分类行的第一个单元格右击选择“粘贴值”
追问
追答
按截图用VLOOKUP 和HLOOKUP 我都解决不了，技术太差。
编辑了一段VBA代码可以解决这个问题，请在表格内创建一个控件（或按钮）并指定宏，在新建宏里粘贴如下代码
Sub 按钮1_Click()
Dim i As Integer
[B:B].ClearContents '清除B列内容，准备填写结果。
For i = 2 To [A65536].End(3).Row '设置需要查找的内容，A列从第2行到最后一个非空行
Set m = [H1:K10].Find(Cells(i, "A").Value) '设置查找范围[H1：K10]，从A列第2行（第一个i值）开始
If Not m Is Nothing Then
Cells(i, "B").Value = Cells(1, m.Column).Value '填写查询到的结果
End If
Next i
End Sub
首行 和最后 一行不需要复制。
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
