将62列数据按日期顺序且存在跨月的情况汇总

不知道为什么 · 发表于 2018-8-2 14:39

dagal 发表于 2018-8-2 13:00
Range("A1").CurrentRegion.Sort [a1000], xlAscending, Header:=xlYes这个排序的

这个小计加在最后wi ...

如图

不知道为什么 · 发表于 2018-8-2 14:40

dagal 发表于 2018-8-2 13:00
Range("A1").CurrentRegion.Sort [a1000], xlAscending, Header:=xlYes这个排序的

这个小计加在最后wi ...

日期排序

魂断蓝桥 · 发表于 2018-8-2 14:55

Sub 查询()
Dim cnn As Object
Dim Sql As String, i%, M%
Set cnn = CreateObject("ADODB.CONNECTION")
cnn.Open "Provider=Microsoft.Jet.OleDb.4.0;Extended Properties='Excel 8.0;HDR=no'; Data Source=" & ThisWorkbook.FullName
For i = 1 To 62 Step 2
Sql = Sql & "SELECT F" & i & ",F" & i + 1 & " FROM [明细$a2:bj500] union all "
Next
Sql = Left(Sql, Len(Sql) - 11)
Sql = "select F1,SUM(F2) from (" & Sql & ") WHERE F2 IS NOT NULL GROUP BY F1"
[A:B] = ""
[a2].CopyFromRecordset cnn.Execute(Sql)
cnn.Close: Set cnn = Nothing
End Sub

LMY123 · 发表于 2018-8-2 17:20

ADO,同薄多列合并或汇总成双列

dagal · 发表于 2018-8-2 18:49

lsdongjh 发表于 2018-8-2 14:25

提示类型不匹配，出错在：
lngKey = Format(CStr(arrSource(lngRow, lngCol)), "yyyymmdd")

dagal · 发表于 2018-8-2 18:50

lsdongjh 发表于 2018-8-2 14:25

提示类型不匹配，出错在：
lngKey = Format(CStr(arrSource(lngRow, lngCol)), "yyyymmdd")

lsdongjh · 发表于 2018-8-2 20:34

dagal 发表于 2018-8-2 18:50
提示类型不匹配，出错在：
lngKey = Format(CStr(arrSource(lngRow, lngCol)), "yyyymmdd")

可能是版本问题，没有你说的问题：

aaa.rar (21.32 KB, 下载次数: 5) 傲游截图20180802203246.png

dagal · 发表于 2018-8-2 22:27

lsdongjh 发表于 2018-8-2 20:34
可能是版本问题，没有你说的问题：

测试ok，谢谢~

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

[求助] 将62列数据按日期顺序且存在跨月的情况汇总

评分

评分