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

最新推荐文章于 2024-07-03 15:47:57 发布

刘一哥GIS

最新推荐文章于 2024-07-03 15:47:57 发布

阅读量8.3k

点赞数 3

CC 4.0 BY-SA版权

分类专栏：《Microsoft Office/VBA》文章标签： Excel VBA 经纬度转置

本文为博主「刘一哥GIS 」原创文章，未经博主允许不得转载或爬取，侵权必究！

本文链接：https://blog.youkuaiyun.com/lucky51222/article/details/44180303

《Microsoft Office/VBA》专栏收录该内容

8 篇文章 ¥29.90 ¥99.00

订阅专栏

本文介绍了如何通过Excel VBA解决批量数据处理的问题，具体为根据经纬度信息对数据进行分组，并实现转置操作。通过VBA代码，可以高效自动化完成这一过程。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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

VBA代码：

Sub admin()
    Dim conn, xRs, xFd
    Set conn = CreateObject("ADODB.Connection")
    conn.Open "Provider=Microsoft.Jet.Oledb.4.0;" & _
              "Extended Properties= 'Excel 8.0;hdr=yes;IMEX=1' ;" & _
              "Data Source=" & ThisWorkbook.FullName
    Set 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, 3
        i = 0
        For Each xFd In xRs.Fields
            Range("F1").Offset(

了解本专栏