欢迎访问 生活随笔！
TAG聚合

生活随笔

当前位置： 首页 >

利用Excel VBA实现批量数据分组转置

发布时间：2023/12/4 46 豆豆
生活随笔 收集整理的这篇文章主要介绍了 利用Excel VBA实现批量数据分组转置 小编觉得挺不错的,现在分享给大家,帮大家做个参考.

问题：如上图所示，按lon，lat分组，再进行转置。

VBA代码：

Sub admin()Dim conn, xRs, xFdSet conn = CreateObject("ADODB.Connection")conn.Open "Provider=Microsoft.Jet.Oledb.4.0;" & _"Extended Properties= 'Excel 8.0;hdr=yes;IMEX=1' ;" & _"Data Source=" & ThisWorkbook.FullNameSet xRs = CreateObject("ADODB.RecordSet")sSql = " Transform Sum( [Tas_t] ) Select [lon] , [lat] From [Sheet1$A:D] Group By [lon] , [lat] Pivot [Year] "xRs.Open sSql, conn, 1, 3i = 0For Each xF

总结

以上是生活随笔为你收集整理的利用Excel VBA实现批量数据分组转置的全部内容，希望文章能够帮你解决所遇到的问题。

如果觉得生活随笔网站内容还不错，欢迎将生活随笔推荐给好友。