VBA统计最大值并且显示日期

lizhipei78 · 发表于 2023-3-27 20:07

准提部林发表于 2023-3-27 16:38
1) 源資料...非必要..不去動它, 排序了就不是原樣
2) 字典的key最好定義型態, 可考慮都轉為文本, 速度可 ...

说的极对，我想的是排序应该不会影响源数据，你的第4点确实是，因为不用循环这么多，可以提高效率不少了，如果楼主不介意排序的话，我的代码再改一改，应该速度都要比上面的同志要快，当然了速度不是最终的

cui26896 · 发表于 2023-3-27 20:26

洋务德雷发表于 2023-3-26 16:15
我这个简单，不用循环也可以解决。看看吧

Sub summery()
Dim conn As Object, rst As Object, strSQL$, i&, PathStr$, sht As Worksheet
Set conn = CreateObject("ADODB.Connection")
Set rst = CreateObject("ADODB.Recordset")
PathStr = ThisWorkbook.FullName '路径
Select Case Application.Version * 1
Case Is <= 11
conn.Open "Provider=Microsoft.Jet.Oledb.4.0;Data Source=" & PathStr & ";Extended Properties='Excel 8.0;HDR=YES;IMEX=0'"
Case Is >= 12
conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & PathStr & ";Extended Properties='Excel 12.0;HDR=YES;IMEX=0'"
End Select
strSQL = "SELECT 品项编码,max(CDate(Format(单据日期, '####/##/##'))) as 日期 FROM [明细$] group by 品项编码"
strSQL = "select a.品项编码,b.品项名称,b.规格,b.单位,a.日期,b.不含税单价 from (" & strSQL & ")a left join [明细$]b on b.品项编码=a.品项编码 and CDate(Format(b.单据日期, '####/##/##'))=a.日期"
rst.Open strSQL, conn, 1, 3
'替换为对结果的处理-------------------------------------
With Worksheets("统计")
.Range("a2").CopyFromRecordset rst
End With
conn.Close: Set conn = Nothing: Set rst = Nothing
End Sub

复制代码

lizhipei78 · 发表于 2023-3-27 21:00

本帖最后由 lizhipei78 于 2023-3-27 21:02 编辑

nouce 发表于 2023-3-27 14:26
运行出错了
.Range([a1], .End(3)).Sort key1:=.Range("d1"), order1:=xlAscending, key2:=.Range("b1" ...

统计最新报价优化.rar (23.41 KB, 下载次数: 4)

你试一下这个，你那个不是规范日期，建议以后少用这种，我分列成日期了，是为了得到最后的日期
这个代码我是增加了一个辅助列对日期进行排序，没有对你的表格日期那一列进行操作，没有什么影响，就是排序了一下，你表格本身有序号排序，如果不喜欢我的倒序排序，你按你的序号进行排序就会变成你原来的样子了
相信我，用我这个肯定比其他人的要快。

lizhipei78 · 发表于 2023-3-27 21:05

nouce 发表于 2023-3-27 14:26
运行出错了
.Range([a1], .End(3)).Sort key1:=.Range("d1"), order1:=xlAscending, key2:=.Range("b1" ...

统计最新报价优化.rar (23.41 KB, 下载次数: 8)

你那个不是规范的日期，建议以后少用
我这个代码添加了一个辅助列，复制你日期那一列，不会对你的原表进行操作，因为你表格本身是有排序的，所以我这个新排序对你表格没有什么影响，后面你可以根据你的序号进行排序就好了
相信我，我这个比其他人的都要快，特别是几万条数据的话。

准提部林 · 发表于 2023-3-28 10:12

7樓代碼, 改成"單條件(品项编码)比對//
基本就兩個判斷...試試//

Xl0000002.rar (44.6 KB, 下载次数: 11)

nouce · 发表于 2023-3-28 17:40

lizhipei78 发表于 2023-3-27 21:00
你试一下这个，你那个不是规范日期，建议以后少用这种，我分列成日期了，是为了得到最后的日期
这个 ...

运行时错误“6”
溢出

nouce · 发表于 2023-3-28 17:52

准提部林发表于 2023-3-28 10:12
7樓代碼, 改成"單條件(品项编码)比對//
基本就兩個判斷...試試//

目前把代码放到原表里测试成功的这些代码中，你这个是运行速度最快的了，时间为0.15625，还有一个用SQL写的，也很快，时间为0.9296875

nouce · 发表于 2023-3-28 18:13

准提部林发表于 2023-3-28 10:12
7樓代碼, 改成"單條件(品项编码)比對//
基本就兩個判斷...試試//

不过你这个有点没看懂，能不能解释一下？

lizhipei78 · 发表于 2023-3-28 18:25

nouce 发表于 2023-3-28 17:40
运行时错误“6”
溢出

这里你分开写试试看
我这里测试是完全没有问题的，我用的是WPS
我也用微软OFFICE 2016测试过了，说实话在VBA代码运行速度上，WPS最新版要比微软OFFICE要好

准提部林 · 发表于 2023-3-28 18:53

nouce 发表于 2023-3-28 18:13
不过你这个有点没看懂，能不能解释一下？

上圖//

		自动登录	找回密码
密码			免费注册

[求助] VBA统计最大值并且显示日期