VBA 实现竖向数据改为横向显示

WANT-T · 发表于 2023-3-14 17:52

用SQL转置一下就可以了!一句代码的事！

liulang0808 · 发表于 2023-3-14 19:26

https://club.excelhome.net/threa ... tml?_dsign=b73ad3d6
https://club.excelhome.net/threa ... tml?_dsign=070dfca3
字典的案例，可以参考下

今日123 · 发表于 2023-3-14 19:50

附件都不上传一个。下面是论坛里老师的代码自己看着调
Sub 汇总()
Dim arr, brr, T, T1, T2, R, Col, S, m, n, i, d As Object
Set d = CreateObject("Scripting.Dictionary")
With Sheets("数据")
arr = .Range(.[d1], .[a65536].End(3))
ReDim brr(1 To 3 ^ 10, 1 To 100)
For i = 2 To UBound(arr)
      T1 = arr(i, 1) '行
      T2 = arr(i, 4) '列
      T = T1 & "\" & T2
      R = d(T1)
      Col = d(T2)
      If R = 0 Then
         m = m + 1
         R = m + 1
         d(T1) = R
         brr(R, 1) = T1
      End If
      If Col = 0 Then
         n = n + 1
         Col = n + 1
         d(T2) = Col
         brr(1, Col) = T2
      End If
      d(T) = d(T) + arr(i, 2)

Next i
.[g5].Resize(m + 1, n + 1) = brr
End With
End Sub

huipu20220102 · 发表于 2023-3-14 21:35

透视表最简单了

hhlty · 发表于 2023-3-14 23:06

公式应该可以解决:
G2单元格公式=SUMIFS($C$2:$C$10,$A$2:$A$10,$F2,$B$2:$B$10,LEFT(G$1,1))
G11单元格公式=SUMIFS($C$2:$C$10,$B$2:$B$10,$F11,$A$2:$A$10,G$10)

mmwwdd · 发表于 2023-3-15 06:01

用sql或数据透视表

a18b88 · 发表于 2023-3-15 08:24

参照论坛帖子做的，附件：

测试.rar (11.61 KB, 下载次数: 14)

Fengnizheng · 发表于 2023-3-15 11:03

WANT-T 发表于 2023-3-14 17:52
用SQL转置一下就可以了!一句代码的事！

如何实现？

xunanming · 发表于 2023-3-15 15:11

数据透视表或power query都可以解决.如果是WPS,那就透视表.

hzruziniu · 发表于 2023-3-15 22:04

坚向改横向.rar (15.35 KB, 下载次数: 12)

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