字典匹配。求指教

小电兔

liulang0808 发表于 2023-3-28 08:16
楼主发个模拟附件就可以了
把对应的数据清理下，压缩后附件不大于2M就可以上传的

好的，已上传

lushang2018

你上传的附件有密码，VB已经设置成不可查看啦

小电兔

lushang2018 发表于 2023-3-28 08:46
你上传的附件有密码，VB已经设置成不可查看啦

好的，我把密码取消了

ykcbf1100

小电兔 发表于 2023-3-28 08:55
好的，我把密码取消了

你这表还受保护的，数据都写不进去的。

3190496160

Sub 字典法复制数据6()
Dim d As Object
Set d = CreateObject("scripting.dictionary")
Dim arr, i As Integer, j As Integer
Dim s As String
Dim brr
With Sheet20
    arr = .Range("a1").CurrentRegion
End With
For i = 2 To UBound(arr)
    s = arr(i, 11)
    d(s) = i
Next
With Sheet08
    brr = .Range("a1").CurrentRegion
    For i = 2 To UBound(brr)
        If Trim(brr(i, 20)) <> "" Then
            xh = d(Trim(brr(i, 20)))
            If xh <> "" Then
                For j = 12 To 19
                    brr(i, j + 23) = arr(xh, j)
                Next j
            End If
        End If
    Next i
    .[a1].CurrentRegion = brr
End With
End Sub

小电兔

ykcbf1100 发表于 2023-3-28 09:09
你这表还受保护的，数据都写不进去的。

我重新发了一下，取消工作表的保护了，实在不好意思。这都是领导设置的（哭笑）

3190496160

磁材制粉1 - 副本.rar (1.16 MB, 下载次数: 7)

2023-3-28 09:18 上传

点击文件名下载附件

小电兔

ykcbf1100 发表于 2023-3-28 09:09
你这表还受保护的，数据都写不进去的。

或者您把代码给我，我这运行一下也行

3190496160

工作表有密码保护，没法测试代码，仅供参考

ykcbf1100

小电兔 发表于 2023-3-28 09:18
或者您把代码给我，我这运行一下也行

代码的话，这样就可以吧。

你自己测试一下。