如何在Excel中将行值转换为列？能否通过VBScript或数据透视表实现？

当然可以啦！不管是数据透视表（不用写代码）还是VBA脚本（自动化处理），都能完美实现这个转换需求，我给你分别拆解操作步骤：

这种方法适合手动操作，不用写代码，步骤很清晰：

• 先给原始数据加一个辅助列（比如列C，表头叫序号），用来标记每个员工对应的第几个时间。假设你的empid在A列，time在B列，在C2单元格输入公式：=COUNTIF($A$2:A2,A2)，然后下拉填充整列——这样每个员工的时间会自动按顺序生成1、2、3的编号。
• 选中整个数据区域（包括表头），点击菜单栏的插入 → 数据透视表，选择结果放置的位置（比如新建工作表）。
• 在数据透视表字段面板里做以下拖拽：
  • 把empid拖到行区域；
  • 把序号拖到列区域；
  • 把time拖到值区域，然后点击值区域的time字段，选择值字段设置，改成最大值或最小值（因为每个序号对应唯一时间，这两个函数都能准确取出）。
• 最后调整表头：把“行标签”改成empid，列区域的1、2、3分别改成time1、time2、time3，就得到你想要的格式了。

如果需要批量处理或者重复操作，用VBA脚本更高效，下面是一段可直接使用的代码：

Sub TransposeEmployeeTimes()
    Dim srcSheet As Worksheet, destSheet As Worksheet
    Dim lastRow As Long, i As Long, targetRow As Long
    Dim currentEmp As String, timeIndex As Integer
    
    ' 自定义源表和目标表，根据你的实际表名修改
    Set srcSheet = ThisWorkbook.Sheets("Sheet1")
    Set destSheet = ThisWorkbook.Sheets("Sheet2")
    
    ' 清空目标表原有数据
    destSheet.Cells.Clear
    
    ' 写入目标表头
    destSheet.Range("A1:D1") = Array("empid", "time1", "time2", "time3")
    targetRow = 2
    lastRow = srcSheet.Cells(srcSheet.Rows.Count, "A").End(xlUp).Row
    
    ' 遍历原始数据
    For i = 2 To lastRow
        currentEmp = srcSheet.Cells(i, "A").Value
        ' 检查当前员工是否已在目标表中
        On Error Resume Next
        targetRow = destSheet.Columns("A").Find(currentEmp, LookIn:=xlValues, LookAt:=xlWhole).Row
        On Error GoTo 0
        
        ' 如果是新员工，初始化新行
        If targetRow = 0 Then
            targetRow = destSheet.Cells(destSheet.Rows.Count, "A").End(xlUp).Row + 1
            destSheet.Cells(targetRow, "A").Value = currentEmp
            timeIndex = 1
        Else
            ' 计算当前是该员工的第几个时间
            timeIndex = destSheet.Cells(targetRow, destSheet.Columns.Count).End(xlToLeft).Column
        End If
        
        ' 写入时间到对应列
        destSheet.Cells(targetRow, timeIndex + 1).Value = srcSheet.Cells(i, "B").Value
    Next i
    
    MsgBox "转换完成！"
End Sub

• 使用方式：打开Excel文件后按Alt+F11打开VBA编辑器，插入新模块，粘贴代码，修改Sheet1和Sheet2为你的实际工作表名称，然后运行宏即可。
• 这段代码会自动识别每个员工的时间，依次横向填充到time1、time2等列，支持多个不同员工的批量处理。

内容的提问来源于stack exchange，提问作者Apoorv