请老师给看看如何依据B列值将后面的数据填充,谢谢

zshyaw

请老师给看看如何依据B列值将后面的数据填充,谢谢

不知道为什么

如图 。。 参考。。。

liujing_hotwind

Sub 匹配()
    arr = Sheets(1).[a6].CurrentRegion
    brr = Sheets(2).[a1].CurrentRegion
    For i = 2 To UBound(arr, 1)
        For r = 2 To UBound(brr, 1)
            If arr(i, 2) = brr(r, 2) Then
                arr(i, 3) = brr(r, 1)
                arr(i, 4) = brr(r, 3)
                arr(i, 5) = brr(r, 4)
                arr(i, 6) = brr(r, 5)
             End If
        Next
    Next
Sheets(1).[a6].CurrentRegion = arr
End Sub

不知道为什么

附件 。 测试。。。。。。

zshyaw

感谢老师们帮助!

3190496160

Sub aaaa()
Dim arr As Variant, br As Variant
Dim d As Object
Set d = CreateObject("scripting.dictionary")
arr = Sheet2.[a1].CurrentRegion
For i = 2 To UBound(arr)
    s = arr(i, 2)
    d(s) = i
Next
With Sheets("制单表")
    r = .Cells(Rows.Count, 2).End(xlUp).Row
    If r < 7 Then MsgBox "制单表为空！": End
    br = .Range("a6:f" & r)
    For i = 2 To UBound(br)
        s = br(i, 2)
        xh = d(s)
        If xh <> "" Then
            br(i, 3) = arr(xh, 1)
            For j = 3 To 5
                br(i, j + 1) = arr(xh, j)
            Next j
        End If
    Next i
    .Range("a6:f" & r) = br
End With
Set d = Nothing
End Sub

3190496160

3190496160

VLOOKUP批量填充.rar (20.4 KB, 下载次数: 8)

2023-5-5 16:09 上传

点击文件名下载附件

niko88819

欢迎zshyaw楼主登陆论坛
大家都非常乐意协助楼主解决问题,请楼主了解以下2条要点
1. 问题得到满意解答在你发贴首页(或是1楼) 先编辑后保存  把标题的 "求助" 改为 "已解决"
   https://club.excelhome.net/thread-1643934-1-1.html
2. 如果老师们做的好表现不错可以送花给老师奖励吧,参考这连接怎么评分
   http://club.excelhome.net/thread-682160-1-1.html

Hontyu

..............