Excel如何快速合并相同部门的员工名单 人事管理技巧

筛选 + 复制粘贴： 这种方法比排序更进一步。先筛选出某个部门的员工，然后复制粘贴到新的位置。重复此操作，直到所有部门的员工名单都合并完成。相较于排序，这种方法可以避免手动查找相同部门的员工，但仍然需要多次复制粘贴。

使用 CONCATENATE 函数（或 & 符号）： 如果只需要将相同部门的员工姓名合并成一个字符串，可以使用 CONCATENATE 函数或者 & 符号。例如，假设部门在A列，姓名在B列，可以在C列使用公式 =IF(A2=A1, C1&","&B2, B2)。这个公式会判断当前行的部门是否与上一行相同，如果相同，则将当前行的姓名添加到上一行的字符串中，否则就从当前行的姓名开始一个新的字符串。这种方法适用于需要将员工姓名合并成一个列表的情况。

使用 Power Query (自Excel 2010起可用): Power Query提供了更强大的数据转换和合并功能。你可以将Excel表格导入到Power Query编辑器中，然后使用“分组依据”功能，按照部门进行分组，并将每个部门的员工姓名合并成一个列表。Power Query的优势在于它可以处理大量数据，并且可以保存查询步骤，方便以后重复使用。

使用 VBA 宏： 如果需要更高级的定制化操作，可以使用 VBA 宏。例如，可以编写一个宏，自动遍历Excel表格，按照部门将员工姓名提取出来，然后写入到新的表格中。VBA宏的灵活性很高，可以实现各种复杂的数据处理需求，但需要一定的编程基础。

代码示例（VBA）：

Sub MergeEmployeeList()  Dim ws As Worksheet  Dim lastRow As Long, i As Long  Dim dept As String, employeeList As String  Dim outputRow As Long  Set ws = ThisWorkbook.Sheets("Sheet1") ' 替换为你的工作表名称  lastRow = ws.Cells(Rows.Count, "A").End(xlUp).Row ' 部门列  outputRow = 2 ' 输出起始行  dept = ws.Cells(2, "A").Value ' 第一个部门  employeeList = ws.Cells(2, "B").Value ' 第一个员工  For i = 3 To lastRow    If ws.Cells(i, "A").Value = dept Then      employeeList = employeeList & ", " & ws.Cells(i, "B").Value    Else      ' 输出结果      ws.Cells(outputRow, "C").Value = dept      ws.Cells(outputRow, "D").Value = employeeList      outputRow = outputRow + 1      ' 更新部门和员工列表      dept = ws.Cells(i, "A").Value      employeeList = ws.Cells(i, "B").Value    End If  Next i  ' 输出最后一个部门的结果  ws.Cells(outputRow, "C").Value = dept  ws.Cells(outputRow, "D").Value = employeeList  MsgBox "员工名单合并完成！"End Sub