VBA去重汇总并去除值为零的项

opel-wong

wagess 发表于 2019-9-7 17:08
可能我的EXCEL版本太低，运行出错

把这句 mRow = .Range("A1048576").End(3).Row

改成： mRow = .Range("A65536").End(3).Row

opel-wong

还有， 把这句： .Resize(4 ^ 8, 2).ClearContents

改成 .Resize(10000, 2).ClearContents

wagess

sheeboard 发表于 2019-9-7 17:05
python pandas写的

结果:

这个太高深，小白表示完全看不懂

wagess

opel-wong 发表于 2019-9-7 17:15
还有， 把这句： .Resize(4 ^ 8, 2).ClearContents

改成 .Resize(10000, 2).ClearContents

Print ZR(h, 2) = ZR(h, 2) + Val(arr(i, 3))

这句出错

opel-wong

wagess 发表于 2019-9-7 17:29
Print ZR(h, 2) = ZR(h, 2) + Val(arr(i, 3))

这句出错

前面为啥要加 Print

wagess

opel-wong 发表于 2019-9-7 17:32
前面为啥要加 Print

    复制时产生的没注意   

wagess

谢谢，各位DX的大力相助，问题完美解决，谢谢。。。。

xiangbaoan

Option Explicit
Sub test()
Dim Cn As Object, Sq$, r&
Sheets("Sheet1").Activate
r = Cells(Rows.Count, 1).End(xlUp).Row
Set Cn = CreateObject("ADODB.Connection")
Cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source=" & ThisWorkbook.FullName
Sq = "SELECT 名称,SUM(IIF(摘要='买入',数量,0))-SUM(IIF(摘要='卖出',数量,0)) AS 数量 FROM [Sheet1$A1:C" & r & "] " & _
     "GROUP BY 名称 HAVING SUM(IIF(摘要='买入',数量,0))-SUM(IIF(摘要='卖出',数量,0))>0"
[h2:i12345].ClearContents
[h2].CopyFromRecordset Cn.Execute(Sq)
Cn.Close
Set Cn = Nothing
End Sub