请高手进来，感谢

taizhoexcelhome

吴中泉 发表于 2023-5-17 21:53
问题一问题二的代码都在附件里，请测试

吴老师，您好！
测试了一下问题二，发现有个小问题，如下：
1、把数据复制过来的时候，文本型的数值转变成了数值型，存在000789,转变后变为789
2、工作表“问题二-源数据”的a（i，1 to 2）没有工作表“问题二”中的b（i，1 to 2）多，就是说有些内容在源数据中是没有的。导致数据对应错误

感谢您的支持！

taizhoexcelhome

135294560056 发表于 2023-5-17 22:54
两个函数搞定

数据比较多，函数运行起来很慢，所以想用vba

sheeboard

用pandas参考

1. import pandas as pd
   
2. df1=pd.read_excel("说明.xlsm",sheet_name=1)
   
3. df2=pd.read_excel("说明.xlsm",sheet_name=3)
   
4. target=pd.read_excel("说明.xlsm",sheet_name=2)
   
5. #问题1
   
6. df1.groupby(['公司','产品']).agg({'起始时间':'min','结束时间':'max'})
   
7. #问题2
   
8. target=target[['公司','产品']]
   
9. pd.merge(target,df2,on=['公司','产品'],how='left')

复制代码

taizhoexcelhome

sheeboard 发表于 2023-5-18 10:15
用pandas参考
[/code]import pandas as pd
df1=pd.read_excel("说明.xlsm",sheet_name=1)

不会玩这个

吴中泉

taizhoexcelhome 发表于 2023-5-18 06:39
吴老师，您好！
测试了一下问题二，发现有个小问题，如下：
1、把数据复制过来的时候，文本型的数值转 ...

你好,今天有事去了,现在才看帖子.
代码运行速度怎样?
第二个问题,由于你给的数据量太少,可能我算法考虑欠缺.我编的时候考虑你的意思,不就是说"问题二"表的前两列数据在问题二源程序里有的,就把相应的后三列数据复制到问题表的对应行里吗?
这是你的原话:根据工作表”问题二“中的公司和产品名称对应工作表”问题二-源数据“，获取对应的规格、价格、起始时间等信息.
你最好再多发一些问题二的模拟数据给我,我调试一下.

吴中泉

taizhoexcelhome 发表于 2023-5-18 06:39
吴老师，您好！
测试了一下问题二，发现有个小问题，如下：
1、把数据复制过来的时候，文本型的数值转 ...

修改好了,简单测试了一下,符合你的意思,你再测试一下

吴中泉

1. Sub test()
   
2. Dim d, ar, br
   
3. Set d = CreateObject("Scripting.Dictionary")
   
4. ar = Sheets("问题二-源数据").Range("a1").CurrentRegion
   
5. For i = 2 To UBound(ar)
   
6.     s = ar(i, 1) & ar(i, 2)
   
7.     d(s) = i
   
8. Next
   
9. Sheets("问题二").Range("c2:e50000").ClearContents
   
10. br = Sheets("问题二").Range("a1").CurrentRegion.Value
    
11. r = 1
    
12. For i = 1 To UBound(br)
    
13.     s = br(i, 1) & br(i, 2)
    
14.     If d.exists(s) Then
    
15.         For j = 3 To UBound(br, 2)
    
16.             br(i, j) = ar(d(s), j)
    
17.         Next
    
18.     End If
    
19. Next
    
20. Sheets("问题二").Range("a1").CurrentRegion = br
    
21. End Sub
    

复制代码

z865593849

1. Sub FillData()
   
2.     Dim conn As Object
   
3.     Dim rs As Object
   
4.     Dim sql As String
   
5. 
   
6.     Set conn = CreateObject("ADODB.Connection")
   
7.     conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0 Xml;HDR=YES"";"
   
8.    
   
9.     sql = "select ,,min(),max() from [$] group by ,"
   
10.     Set rs = conn.Execute(sql)
    
11.     Sheets("").Range("A2").CopyFromRecordset rs
    
12.    
    
13.     sql = "select a.,a.,b.,b.,b. from [$] as a left join (select * from [-$]) as b  " _
    
14.         & " on a.=b. and a.=b. "
    
15.     Set rs = conn.Execute(sql)
    
16.     Sheets("").Range("A2").CopyFromRecordset rs
    
17.    
    
18.     '
    
19.     Sheets("").Columns("E").NumberFormat = "yyyy-mm-dd"
    
20.     '
    
21.     rs.Close
    
22.     Set rs = Nothing
    
23.     conn.Close
    
24.     Set conn = Nothing
    
25. End Sub
    
26. 
    
27. 
    

复制代码

taizhoexcelhome

吴中泉 发表于 2023-5-18 17:23

刚看到信息，测试过了，速度很快，程序是正确的，感谢支持

南京吴彦祖

吴中泉 发表于 2023-5-17 21:50
问题一也解决了

字典定位思路很棒