需要VBA实现

fan800326

请VBA大师出手相助下。谢谢！

不知道为什么

用vlooklup

或者 数组字典等都可以

lsc900707

1. Sub gj23w98()
   
2.     Set d = CreateObject("scripting.dictionary")
   
3.     arr = Sheet1.UsedRange
   
4.     For i = 4 To UBound(arr)
   
5.         For j = 7 To UBound(arr, 2)
   
6.             s = arr(i, 4) & arr(2, j) & arr(3, j)
   
7.             d(s) = arr(i, j)
   
8.         Next
   
9.     Next
   
10.     brr = ActiveSheet.UsedRange
    
11.     For i = 4 To UBound(brr)
    
12.         For j = 7 To UBound(brr, 2)
    
13.             s = brr(i, 4) & brr(2, j) & brr(3, j)
    
14.             brr(i, j) = d(s)
    
15.         Next
    
16.     Next
    
17.     ActiveSheet.UsedRange = brr
    
18. End Sub

复制代码

LOA

希望可以帮助你 VBA实现.zip (22.13 KB, 下载次数: 12)

2018-10-2 10:31 上传

点击文件名下载附件

lsc900707

代码需要审核后才能看到，先测试附件吧：

fan800326

lsc900707 发表于 2018-10-2 10:30

大师，你好！
按了按钮1之后，表格外的内容想要保留，不知道可以实现否。

lsc900707

fan800326 发表于 2018-10-2 20:40
大师，你好！
按了按钮1之后，表格外的内容想要保留，不知道可以实现否。

当然可以，你说清楚就好。