按姓名从数据源提取公司名称及工作内容

gglili · 发表于 2024-1-24 15:05

本帖最后由 gglili 于 2024-1-27 11:19 编辑

求教老师，怎么用VBA按姓名从数据源提取公司名称及工作内容？

劳务报表.rar (17.55 KB, 下载次数: 11)

yellowhawk · 发表于 2024-1-24 15:36

N4=INDEX(汇总!$L$3:$L$5,IF(汇总!$J$3:$J$5=$N$3,ROW($1:$3),""))
J3=INDEX(汇总!$L$3:$L$5,IF(汇总!$J$3:$J$5=$N$3,ROW($1:$3),""))
注意N4和J3的合并方式都需要更改为跨列居中。

gglili · 发表于 2024-1-24 15:37

谢谢各位老师，帮忙给看看

gglili · 发表于 2024-1-24 15:38

yellowhawk 发表于 2024-1-24 15:36
N4=INDEX(汇总!$L$3:$L$5,IF(汇总!$J$3:$J$5=$N$3,ROW($1:$3),""))
J3=INDEX(汇总!$L$3:$L$5,IF(汇总!$J$3 ...

多谢老师解答，用VBA怎么解决？

ykcbf1100 · 发表于 2024-1-24 15:50

附件供参考。。。

gglili · 发表于 2024-1-24 15:59

ykcbf1100 发表于 2024-1-24 15:50
附件供参考。。。

多谢老师的帮助，汇总表名称不变，其它表格都是根据姓名变化的，一个工作簿内有多张劳务报表，应该怎么修改代码？

ykcbf1100 · 发表于 2024-1-24 16:09

gglili 发表于 2024-1-24 15:59
多谢老师的帮助，汇总表名称不变，其它表格都是根据姓名变化的，一个工作簿内有多张劳务报表，应该怎么修 ...

你不是应该先送花再问的吗？

gglili · 发表于 2024-1-24 16:13

gglili 发表于 2024-1-24 15:59
多谢老师的帮助，汇总表名称不变，其它表格都是根据姓名变化的，一个工作簿内有多张劳务报表，应该怎么修 ...

忘了

，多谢老师的多次解答

ykcbf1100 · 发表于 2024-1-24 16:53

gglili 发表于 2024-1-24 15:59
多谢老师的帮助，汇总表名称不变，其它表格都是根据姓名变化的，一个工作簿内有多张劳务报表，应该怎么修 ...

多表填充。。。

gwjkkkkk · 发表于 2024-1-24 19:13

Option Explicit
Sub TEST1()
Dim ar, i&

br = Sheets("汇总").[J1].CurrentRegion
With [J3:N4]
      ar = .Value
      ar(1, 1) = Empty: ar(2, 5) = Empty
      For i = 3 To UBound(br)
         If br(i, 1) = ar(1, 5) Then
            ar(1, 1) = br(i, 2)
            ar(2, 5) = br(i, 3)
            Exit For
         End If
      Next i
      .Value = ar
End With
Beep
End Sub

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

[已解决] 按姓名从数据源提取公司名称及工作内容

评分