excel表格中如何把某列中同项的所有行转化为同一行
现在是一个数据库中导出的表格具体如下：
患者 随访时间 药物剂量
A 2013.1.8 20MG
A 2013.2.8 30MG
A 2013.3.8 40MG
B 2013.2.6 70MG
B 2013.2.28 60MG
因为姓名列中有重复项，但是每次随访都有需要记录的东西，想以患者姓名为列，将患者的每次随访那个全部列于一行，需要达到的效果为
患者 第一次随访时间 第一次药物剂量 第二次随访时间 第二次药物剂量 第三次随访时间 .........
A 2013.1.8 20mg 2013.2.8 30mg 2013.3.8
B 2013.2.6 70mg 2013.2.28 60mg
因为数据较多，人工整理实在困难，不知道能不能达到此效果，求各位大神的方法，多谢！
帮你设置了一个表格，希望帮到你
使用VBA是最好的
但是这个方法也不错而且比较方便，不是吗
数据量大，可以用VBA处理。
你的原数据的记录，一般是按时间为顺序记录数据的，不可能象你示例中的数据一样排序好的，从姓名列来说也许就是乱序的，但时间列是有序的。
此代码用数组+字典完成，不管你姓名是什么顺序，都可以得到结果，且自动添加边框、写入标题。一键搞定！
（代码好不好，关键看结果准确与运行速度，数组+字典的方法，极大减少了代码的运算时间）。
请启用宏，点表中转换按钮就完成了。
Dim i, j, k, c, tag As Integer
i = 1
j = 1
k = 1
c = 1
tag = 0
Do While Sheets(1).Cells(i, 1) <> ""
If i = 1 Then
Sheets(2).Cells(i, 2) = Sheets(1).Cells(i, 1)
Sheets(2).Cells(i, 3) = Sheets(1).Cells(i, 2)
Sheets(2).Cells(i, 4) = Sheets(1).Cells(i, 3)
Sheets(2).Cells(i, 1) = 4
j = j + 1
End If
If i > 1 Then
tag = 0
For k = 1 To j - 1
If Sheets(1).Cells(i, 1) = Sheets(2).Cells(k, 2) Then
c = Sheets(2).Cells(k, 1)
Sheets(2).Cells(k, c + 1) = Sheets(1).Cells(i, 2)
Sheets(2).Cells(k, c + 2) = Sheets(1).Cells(i, 3)
Sheets(2).Cells(k, 1) = c + 2
tag = 1
End If
Next k
If tag = 0 Then
Sheets(2).Cells(j, 2) = Sheets(1).Cells(i, 1)
Sheets(2).Cells(j, 3) = Sheets(1).Cells(i, 2)
Sheets(2).Cells(j, 4) = Sheets(1).Cells(i, 3)
Sheets(2).Cells(j, 1) = 4
j = j + 1
End If
End If
i = i + 1
Loop
End Sub
会用VBA吧，把你的数据放到sheet1中，A列放姓名，B列放时间，C列放药物剂量，然后运行宏，sheet2中就可以得到你想要的结果。
A 2013.1.8 20MG
A 2013.2.8 30MG
A 2013.3.8 40MG
B 2013.2.6 70MG
B 2013.2.28 60MG
是不是分了三列还是在一列，我粘贴到EXCEL中是5行1列；
针对这种情况，我先选择复制了A到一个新的Sheet中
A 2013.1.8 20MG
A 2013.2.8 30MG
A 2013.3.8 40MG
然后对A进行分列，A 单独一列，时间和药物剂量一列，
A 2013.1.8 20MG
A 2013.2.8 30MG
A 2013.3.8 40MG
然后把：时间和药物进行复制---选择性粘贴--转置为下列各式，
2013.1.8 20MG 2013.2.8 30MG 2013.3.8 40MG
然后再插入下列内容即可：
患者 第一次随访时间 第一次药物剂量 第二次随访时间 第二次药物剂量 第三次随访时间 .........
B如法炮制，不知道您有没有看明白。
对于在数据量来说，使用VBA来解决才是正道。
