用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 ...
|