发附件，附件中或回帖中说明需求。附件可以上传至自己的网盘或其他办法，然后链接发给我

楼主还在么，可以留言么

我有一个问题:车间有10个班组，每个班组有30多人，车间每个人的工号都是唯一的，但是有几个重名的职工各分布在不同班组，车间人员库包含班组、工号和姓名，现导出一个表里面有两列分别是班组和姓名(工号列为空），如何编写VBA代码，将人员库的对应填入导出的表格工号列里?

楼上的问题可以用班组+姓名=>工号建立字典，假设《人员库》和《导出》两个工作表的列均为A班组、B姓名、C工号，需要的代码如下：
Sub 宏1()
Dim arr, i&, db
Set db=CreateObject("Scripting.Dictionary")
arr=Sheets("人员库").UsedRange
For i=2 To UBound(arr)
db(Trim(arr(i,1)) & Trim(arr(i,2))) = Trim(arr(i,3))
Next i
arr=Sheets("导出").UsedRange
For i=2 To UBound(arr)
Sheets("导出").Cells(i,3) = db(Trim(arr(i,1)) & Trim(arr(i,2)))
Next i
MsgBox "Ok"
End Sub

根据excel数据内容照片插入word对应位置，并重命名，写个vba代码，四处对应，978140213，100米，保证运行没问题，借楼，借楼主

想根据单元格文字来改变单元格颜色，但是用循环挨个操作单元格改颜色太慢了，用union联合一起改速度也很慢，用数组一次性给单元格赋值又没法赋值给颜色，用条件格式又很卡。想请各位大佬给个不用数据格式，又不用挨个操作单元格，可以一次性给批量单元格改颜色的方法

求助大佬 新人不懂像这种 连接指定几个单元格字符串 到指定位置 并且保留颜色该怎么做啊 网上学的教程代码 怎么搞都只能连接字符串 不能保留颜色

你好，可以咨询一下网站爬取数据的问题吗