求修改代码 由总表写入分表

sooohome

判断总表和分表的相同字符，然后依据相同字符由总表写入分表。详情请见附件： 总表和分表.zip (108.37 KB, 下载次数: 11)

2018-7-7 18:23 上传

点击文件名下载附件

这个是昵称吗

看你求助了一样的东西，虽然不知道你到底要干啥，不过觉得有代码了你自己研究下就行了！

不知道为什么

你的代码逻辑上是可以实现的，只是有点小笔误。如图：

sooohome

这段代码结果出错了，不知道是哪句有错，只好再发贴求助了

xiaoqiang17

我自己做了一个，模块2，供参考。

xiaoqiang17

第一个文件是前期邦定字典
这一个是后期邦定字典

lsc900707

昨天拆分的方法也可以达到目的的，不知你自己认真测试没有？

lsc900707

1. Sub gj23w98()
   
2.     Set d = CreateObject("scripting.dictionary")
   
3.     r = Cells(Rows.Count, 3).End(3).Row
   
4.     arr = Range("a1:bi" & r)
   
5.     m = UBound(arr): n = UBound(arr, 2)
   
6.     For i = 4 To m
   
7.        s = arr(i, 1) & arr(i, 3)
   
8.        d(s) = Cells(i, 7).Resize(, n)
   
9.     Next
   
10.     For Each sht In Sheets
    
11.         If sht.Name <> ActiveSheet.Name Then
    
12.             With sht
    
13.                 r = .Cells(.Rows.Count, 3).End(3).Row
    
14.                 brr = .Range("a1:bi" & r)
    
15.                 m = UBound(brr): n = UBound(brr, 2)
    
16.                 For i = 4 To m
    
17.                     s = brr(i, 1) & brr(i, 3)
    
18.                     If d.exists(s) Then .Cells(i, 7).Resize(, n) = d(s)
    
19.                 Next
    
20.             End With
    
21.         End If
    
22.     Next
    
23.     MsgBox "OK!"
    
24. End Sub

复制代码

lsc900707

不用拆分的方法也可以。测试附件：

sooohome

lsc900707 发表于 2018-7-8 06:25
昨天拆分的方法也可以达到目的的，不知你自己认真测试没有？

谢谢版主大神帮助的代码，已测试。所求的这两种方式，各有所用。谢谢大神