请教VBA实现内容提取合并问题2

6xueren

以上表格内容用VBA重新提取合并，想要结果如下：

说明：
左侧周部分：日期取周的最后一天的日期，开盘价取周的第一天的开盘价，最高价取周的最高价，最低价取周的最低价，收盘价取周的最后一天的收盘价，成交量取周成交量的总和。


右侧月部分：日期取月的最后一天的日期，开盘价取月的第一天的开盘价，最高价取月的最高价，最低价取月的最低价，收盘价取月的最后一天的收盘价，成交量取月成交量的总和。

鄂龙蒙

周末、月末？？？？

limonet

月的效果与代码。

limonet

Sub limonet()
    Dim Cn As Object, StrSQL$
    Set Cn = CreateObject("adodb.connection")
    Cn.Open "provider=microsoft.ace.oledb.12.0;extended properties=excel 12.0;data source=" & ThisWorkbook.FullName
    StrSQL = "select last(日期),first(开盘价),max(最高价),min(最低价),last(收盘价),sum(成交量) from (select month(日期) as 月,日期,开盘价,最高价,最低价,收盘价,成交量 from [Sheet1$A:F] where 日期>0) group by 月"
    Range("O2").CopyFromRecordset Cn.Execute(StrSQL)
End Sub

ykcbf1100

那跨月的日子，周和月怎么算？

于箱长

这些数据是怎么搞出来的呢

gwjkkkkk

请参考附件。。。

于箱长

limonet

周报，你依葫芦画瓢改一下。其实吧，用什么VBA，数据透视表就能办到。

6xueren

limonet 发表于 2023-7-6 19:54
周报，你依葫芦画瓢改一下。其实吧，用什么VBA，数据透视表就能办到。

你这看不明白，不会改