根据两表指定单元格内容自动填充其他栏数据问题

excelkill

原来用函数关联提取的数据，因数据量大造成工作表运行速度慢，所以想用vba来实现提高工作表速度，具体需求如下：
1、两列数据需要人工下拉菜单选择（E栏和I栏），这个下拉菜单我已经做好了：
2、E栏选择内容后，查找《系统数据》工作表内C栏，取相同名称行的A、B、D、E栏内容分别到本表选择行的对应栏内；
3、I栏选择内容后，查找《系统数据》工作表内G栏，取相同名称行的H-M栏内容分别到本表选择行的对应栏J-O内；
4、本行添加内容后，自动在A列的行添加序列号。
5、B列和H列内容需要手工填写，不考虑自动填写功能。

麻烦哪位老师帮我看看，如何解决啊，谢谢了。辛苦老师，一定评分鲜花送上。感谢

shiruiqiang

1、大哥，你那是筛选，不是组合框；
2、你是做成1张表，还是做成2张表，家具和使用人没联系的。目前按照你的表，是4块内容组合成2块。

yanglinzi

没看明白。。

3190496160

基本上看明白，先留个记号吧

3190496160

Private Sub Worksheet_Change(ByVal T As Range)
Dim r As Long
If T.Row > 3 And T.Column = 5 Then
    If T.Count > 1 Then End
    If T.Value = "" Then End
    With Sheets("系统数据")
        r = .Cells(Rows.Count, 1).End(xlUp).Row
        ar = .Range("a2:e" & r)
    End With
    For i = 1 To UBound(ar)
        If Trim(ar(i, 3)) = Trim(T.Value) Then
            For j = 1 To UBound(ar, 2)
                Cells(T.Row, j + 2) = ar(i, j)
            Next j
            Exit For
        End If
    Next i
End If
If T.Row > 3 And T.Column = 9 Then
    If T.Count > 1 Then End
    If T.Value = "" Then End
    With Sheets("系统数据")
        r = .Cells(Rows.Count, 7).End(xlUp).Row
        ar = .Range("g1:m" & r)
    End With
    For i = 2 To UBound(ar)
        If Trim(ar(i, 1)) = Trim(T.Value) Then
            For j = 2 To UBound(ar, 2)
                Cells(T.Row, j + 8) = ar(i, j)
            Next j
            Exit For
        End If
    Next i
End If

        
End Sub

3190496160

副本台账 (恢复的).rar (37.99 KB, 下载次数: 4)

2023-7-15 12:30 上传

点击文件名下载附件

汉唐

该台账的使用人名称应该是唯一值（如台账中的使用人名称：公用有一个是销售科一个是基金科），附件仅供参考（不考虑重复值）