用excel做一个复杂名单

penghaifeng · 发表于 2010-10-18 11:40

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

100米跳远 · 发表于 2010-10-18 12:03

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

xiayouzi · 发表于 2010-10-18 16:10

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 · 发表于 2010-10-18 16:24

用excel做一个复杂名单

loop670 · 发表于 2010-10-18 19:14

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

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

gmr · 发表于 2010-10-18 20:00

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

gmr · 发表于 2010-10-18 20:08

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

浅唱清风 · 发表于 2010-10-18 21:30

这个基本不会

xpm130 · 发表于 2010-10-18 21:57

你很聪明,学习了.

新鲜小南瓜 · 发表于 2010-10-18 22:52

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

		自动登录	找回密码
密码			免费注册

[已解决] 用excel做一个复杂名单

用excel做一个复杂名单

我的方法

回复 27楼 gmr 的帖子