根据序号和省份信息来匹配顺序号

njwtg

从第二行开始，根据序号A列和省份C列的值，提取“数据表”中的Z列信息
序号A列对应“数据表”中的X列，省份C列对应“数据表”中的Y列

黄色是程序运行后的单元格数据演示，实际只要结果，不需要颜色
谢谢老师！

dragonthree

省份明明是B列

dragonthree

可以用公式搞定，但是顺序号都转成数字才好办

dragonthree

SUMPRODUCT就可以搞定，但要保证数据表中省份+顺序号不重复

洋务德雷

有点乱，没看懂

yynrzwh

Sub test()

Set d = VBA.CreateObject("scripting.dictionary")
arr = Sheets("数据表").Range("x1").CurrentRegion
    For i = 1 To UBound(arr)
        s = arr(i, 1) & arr(i, 2)
        If Len(s) > 0 Then d(s) = arr(i, 3)
    Next i
brr = Sheets("项目").UsedRange
    For i = 2 To UBound(brr)
        s = brr(i, 2) & brr(i, 1)
        brr(i, 3) = d(s)
    Next i

With Sheets("项目")
    .Range("c2").Resize(UBound(brr)) = ""
    .UsedRange = brr
End With
Set d = Nothing
End Sub
根据序号和省份信息来匹配顺序号.rar (15.84 KB, 下载次数: 2)

2024-1-19 11:21 上传

点击文件名下载附件

lixikao

使用公式就可以解决了

njwtg

省份是应该在C列，我表格修正了下，给老师添麻烦了。

ykcbf1100

参与一下。。。

1. Sub ykcbf()   '//2024.1.19
   
2.     Dim arr, d
   
3.     Application.ScreenUpdating = False
   
4.     Set d = CreateObject("Scripting.Dictionary")
   
5.     With Sheets("数据表")
   
6.         r = .Cells(.Rows.Count, "z").End(xlUp).Row
   
7.         arr = .[x1].Resize(r, 3)
   
8.     End With
   
9.     For i = 1 To UBound(arr)
   
10.         s = arr(i, 1) & "|" & CStr(arr(i, 2))
    
11.         d(s) = arr(i, 3)
    
12.     Next
    
13.     With Sheets("项目")
    
14.         r = .Cells(.Rows.Count, "a").End(xlUp).Row
    
15.         arr = .[a1].Resize(r, 3)
    
16.         For i = 2 To UBound(arr)
    
17.             s = arr(i, 3) & "|" & CStr(arr(i, 1))
    
18.             If d.Exists(s) Then
    
19.                 arr(i, 2) = d(s)
    
20.             End If
    
21.         Next
    
22.         .[a1].Resize(r, 3) = arr
    
23.     End With
    
24.     Set d = Nothing
    
25.     Application.ScreenUpdating = True
    
26.     MsgBox "OK！"
    
27. End Sub
    

复制代码

ykcbf1100

njwtg 发表于 2024-1-19 11:43
省份是应该在C列，我表格修正了下，给老师添麻烦了。

附件供参考。。。