求高人编写代码将表一数据汇总导入表二数据格式中，谢谢了

zhouweifu

有两张表，表一为源数据，表二为格式固定的空白数据，现要求：
1、表一数据A列对应表二数据B列。
2、表一数据B列对应C:N。
3、如果表二O列数据有分成比，则按比例计算合计数；如果为空，则按100%计算合计数。
4、表一A列数据在表二未统计到的，请将未统计的数据粘贴到表二后面，并统一按其他地区计算合计数。
以前都是用IF、SUMPRODUCT函数，但工作量太大，有时上万条记录，速度太慢，想用VBA缩短工作时间，请大师帮忙提点，谢谢！

zhouweifu

朱荣兴 发表于 2018-8-6 14:55
关键点在于：
4、表一A列数据在表二未统计到的，请将未统计的数据粘贴到表二后面，并统一按其他地区计算合 ...

谢谢管理员支持

q960126

1. Sub test2()
   
2. For Each rg In Sheet1.Range("a1", Sheet1.[a1].End(xlDown))
   
3.     Set n = Sheet2.Range("b:b").Find(rg)
   
4.     If Not n Is Nothing Then
   
5.     For Each rg2 In Sheet2.Range("c1:n1")
   
6.         If Sheet1.Cells(rg.Row, 2) = rg2 Then Sheet2.Cells(n.Row, rg2.Column) = Sheet1.Cells(rg.Row, 3)
   
7.     Next
   
8.     Else
   
9.         [a1].End(xlDown).Offset(1) = "其他地区"
   
10.         [b1].End(xlDown).Offset(1) = rg
    
11.     For Each rg2 In Sheet2.Range("c1:n1")
    
12.         If Sheet1.Cells(rg.Row, 2) = rg2 Then Sheet2.Cells(Sheet2.[a1].End(xlDown).Row, rg2.Column) = Sheet1.Cells(rg.Row, 3)
    
13.     Next
    
14.     End If
    
15. 
    
16. Next
    
17. End Sub

复制代码

我将你的表2复制到了表1的第二个工作表了
我这个是在你工作簿1里面直接运行、
你的第3个要求，我没有做。你可以自己构思下咋弄
3、如果表二O列数据有分成比，则按比例计算合计数；如果为空，则按100%计算合计数。