数据统计

ynymzzr · 发表于 2018-9-23 14:32

本帖最后由 ynymzzr 于 2018-9-23 15:37 编辑

由于数据量较大，运用公式太卡，请求高手用VB解决。

abc123281 · 发表于 2018-9-23 14:46

呵呵浪费表情

changhong8 · 发表于 2018-9-23 14:47

你好！我是医院精神科的主任医师，领导在看到你的帖子后，对你的病情高度重视，立刻安排我与你取得联系。精神病是一种可治可防的病，只要你积极配合治疗，一定可以完全治愈，最后希望你树立信心，战胜病魔，祝你早日康复！

ynymzzr · 发表于 2018-9-23 15:09

不好意思，机子太卡，一直上传不了附件

ynymzzr · 发表于 2018-9-23 15:38

附件已上传，请帮忙解决。

不知道为什么 · 发表于 2018-9-23 18:42

本帖最后由不知道为什么于 2018-9-24 14:01 编辑

ynymzzr 发表于 2018-9-23 15:38
附件已上传，请帮忙解决。

数组和字典应该可以解决。

xiangbaoan · 发表于 2018-9-24 06:27

……仅参考……

iwangyi · 发表于 2018-9-24 08:29

Sub tt()
Cells.Clear
Set CN = CreateObject("adodb.connection")
Set RS = CreateObject("adodb.recordset")
CN.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source= " & ThisWorkbook.FullName
Sql = "TRANSFORM SUM(实缴金额) SELECT 纳税人名称,null as 合计 FROM [数据$] GROUP BY 纳税人名称 PIVOT( 征收项目)"
RS.Open Sql, CN, 1, 3
For I = 0 To RS.FIELDs.Count - 1
X = RS.FIELDs.Count - 1
Cells(1, 1 + I) = RS.FIELDs(I).Name
Next
Range("A2").CopyFromRecordset CN.Execute(Sql)
LASTROW = [A65536].End(3).Row
LASTCOL = [IV1].End(xlToLeft).Column
For J = 2 To LASTROW
Cells(J, 2) = Application.Sum(Cells(J, 2).Offset(, 1).Resize(, LASTCOL - 2))
Range("A1").CurrentRegion.Borders.ColorIndex = 7
Next
End Sub

iwangyi · 发表于 2018-9-24 08:30

附件，请参考

WYS67 · 发表于 2018-9-24 08:55

changhong8 发表于 2018-9-23 14:47
你好！我是医院精神科的主任医师，领导在看到你的帖子后，对你的病情高度重视，立刻安排我与你取得联系。精 ...

帮人是善行，不帮是本分。您可以选择这一辈子都坚决不帮别人忙！但讽刺挖苦求助人，有点过了！

就想问您一句：您从没求助过别人吗？

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

[求助] 数据统计

评分

评分

评分