用excel做一个复杂名单

penghaifeng

用导入外部数据只能做到这种程度，一个人名占用一个单元格：

100米跳远

一维数据清单转换为二维数组.

xiayouzi

Sub copydata()
Dim i As Integer, j As Integer, h As Integer
Dim item As String
j = 2
For i = 2 To Sheets(1).[a65536].End(xlUp).Row
    For j = 2 To 7
    For h = 2 To 7
   
'MsgBox Sheets("基础数据").Cells(i, 1)
'MsgBox Sheets("目标").Cells(j, 1)
'MsgBox Sheets("基础数据").Cells(i, 3).Value
'MsgBox Sheets("目标").Cells(1, h)
    If Sheets("基础数据").Cells(i, 1) = Sheets("目标").Cells(j, 1) And Sheets("基础数据").Cells(i, 3).Value = Sheets("目标").Cells(1, h) Then
   
    Sheets("目标").Cells(j, h) = Sheets("基础数据").Cells(i, 2).Value & "," + Sheets("目标").Cells(j, h)
    End If
    Next
    Next
Next
End Sub

xiayouzi

用excel做一个复杂名单

loop670

原帖由 xiayouzi 于 2010-10-18 16:24 发表
用excel做一个复杂名单

谢谢大家的热情，之前的那个公式做的很好，解决了我的问题，
这次学到了不少东西，非常感谢大家对我的帮助！

gmr

1、先在基础数据上作数据透视表
   “部门”、“姓名”为行字段
   “职务”为列字段
   “姓名”为数据项
    并用拖动方式将“部门”按顺序排好
2、将数据透视表内容（部门、姓名、职务）复制到新工作表中，如附件中sheet1工作表中的表一所示
3、将表一复制到右侧，并删除“姓名”列和“职务”项中的数字
4、在单元格M3中输入公式=IF(C3=1,$B3,"") ，然后向右侧复制公式，再将M3:S3的公式向下复制，最后完善表格边框格式即可，如表二所示
见附件

gmr

我的方法是用比较基础的操作实现的，对于新手比较适用

浅唱清风

这个基本不会

xpm130

你很聪明,学习了.

新鲜小南瓜

9楼老师的公式有小问题啊，部门三里的客户经理有错误，公式中用offset第4个参数取高度时是连续取，所以原数据库中部门相同职位相同的要连在一起输，不然就不对。