责任的名字,而且不能重复。有什么excel内置公式可以使用?如果不可能,怎么样用VBA来设计?

[复制链接]
查看11 | 回复4 | 2012-8-27 11:45:25 | 显示全部楼层 |阅读模式
用VBA帮你实现你的要求,代码说明,1.工作表按工作表名称标签从左到右,1是空白表,2,3,4...n 是各要获取责任人名字的工作表.2.每个工作表的第一行为标题行,标题行中相应责任人列的标题为"责任人"3.ALT+F11打开VBA编辑窗口,在左侧列表栏点击鼠标右键选插入模块,粘贴以下代码到右边窗口后,关闭VBA编辑窗口.在工作表页面按ALT+F8,选中该宏名,点击执行.代码如下:Sub getname()Dim rng As RangeDim dicSet dic = CreateObject("Scripting.Dictionary")For i = 2 To Sheets.Count
With ...
回复

使用道具 举报

千问 | 2012-8-27 11:45:25 | 显示全部楼层
用VBA来设计,用字典功能实现,假定sheet2中的责任人名字在B列, sheet3在C列, sheet4在D列, sheet5在E列。各表都从第二行开始。在VBA工程模块中插入如下程序:Sub 责任人()Set d = CreateObject("Scripting.Dictionary")Dim rag As RangeDim res...
回复

使用道具 举报

千问 | 2012-8-27 11:45:25 | 显示全部楼层
内置的只有一个“筛选-高级筛选-不重复记录”功能可以剔除重复项。如果要用VBA,你首先要让代码知道如何从各工作表中找到你要的项目或人名的具体位置,找到后,通过代码将它们复制到空白表的A列中,最后执行上面说的那个“高级筛选”就行了。...
回复

使用道具 举报

千问 | 2012-8-27 11:45:25 | 显示全部楼层
我想知道,你说的不能重复是以下哪种情况:1. 当前输入数据与前面输入数据重复时,系统自动提醒。这个你可以用“有效性”来实现。2. 相应的输入数据已经产生,你想找出重复的数据。这个你可以用countif来实现。...
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

主题

0

回帖

4882万

积分

论坛元老

Rank: 8Rank: 8

积分
48824836
热门排行