请教数据问题

zjnbzjg

请教如何根据sheet  C列单元格中的数值在另一数据表 A列中进行精确匹配把B列的值填入sheet的F列的单元格中，并可修改该值，不用公式用VBA代码如何实现。谢谢！

shenjianrong163

记得发下附件！

zjnbzjg

shenjianrong163 发表于 2020-2-20 18:14
记得发下附件！

附件已上传，请教，谢谢！

zjnbzjg

shenjianrong163 发表于 2020-2-20 18:14
记得发下附件！

附件已上传，请教，谢谢！

shenjianrong163

zjnbzjg 发表于 2020-2-20 18:34
附件已上传，请教，谢谢！

1. Sub test()
   
2.     Dim i%, j%, r1%, r2%, arr, brr
   
3.     With Sheets("Sheet3")
   
4.         r1 = .Cells(.Rows.Count, 1).End(xlUp).Row
   
5.         arr = .Range("A2:B" & r1)
   
6.     End With
   
7.     With Sheets("Sheet1")
   
8.         r2 = .Cells(.Rows.Count, 3).End(xlUp).Row
   
9.         brr = .Range("C2:F" & r2)
   
10.         For i = 1 To UBound(brr)
    
11.             For j = 1 To UBound(arr)
    
12.                 If brr(i, 1) = arr(j, 1) Then
    
13.                     brr(i, 4) = arr(j, 2)
    
14.                     Exit For
    
15.                 End If
    
16.             Next
    
17.         Next
    
18.         .[C2].Resize(UBound(brr), 4) = brr
    
19.     End With
    
20. End Sub

复制代码

shenjianrong163

请参考附件：
数据.rar (18.79 KB, 下载次数: 4)

2020-2-20 19:05 上传

点击文件名下载附件
1

zjnbzjg

shenjianrong163 发表于 2020-2-20 19:05
请参考附件：

能不点击按钮让它自动运行吗

zjnbzjg

shenjianrong163 发表于 2020-2-20 19:05
请参考附件：

出现下标越界

shenjianrong163

zjnbzjg 发表于 2020-2-20 19:43
出现下标越界

你的文件和原来一样吗?我这儿运行是正常的。

zjnbzjg

shenjianrong163 发表于 2020-2-20 19:57
你的文件和原来一样吗?我这儿运行是正常的。

下标越界解决了，就是1.能不能自动运行，2.在其他的数据表也可以用，我有好几张这样的表，数据库源文件是同一个