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

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

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 xFd In xRs.FieldsRange("F1").Offset(0, i) = xFd.Namei = i + 1NextRange("F2").CopyFromRecordset xRsxRs.Closeconn.CloseSet xRs = NothingSet conn = NothingEnd Sub

你并不一定会从此拥有更美好的人生，