文本的多条件分类汇总

发发哥abc · 发表于 2024-10-14 14:20

本帖最后由发发哥abc 于 2024-10-14 14:54 编辑

→→→

没有数据的数据透视，不用power query, 实现文本的透视，不用 power pivot ,只用 VBA。

ykcbf1100 · 发表于 2024-10-14 15:13

本帖最后由 ykcbf1100 于 2024-10-14 15:20 编辑

先清除，感觉与效果图不符。

acbczhhw · 发表于 2024-10-14 15:14

我使用这个公式试了试
=IFNA(VLOOKUP($D2&E$1,IF({1,0},源!$A$1:$A$49&源!$B$1:$B$49,源!$C$1:$C$49),2,0),"")

但是因为机1&工厂1重复数据多，只能提取一个

ykcbf1100 · 发表于 2024-10-14 15:14

本帖最后由 ykcbf1100 于 2024-10-14 15:21 编辑

参与一下。。。

3190496160 · 发表于 2024-10-14 15:23

Sub 转置()
Dim ar As Variant, cr As Variant
Dim i As Long, r As Long
Dim br()
Dim d As Object
Set d = CreateObject("scripting.dictionary")
With Sheets("源")
r = .Cells(Rows.Count, 1).End(xlUp).Row
If r < 2 Then MsgBox "源工作表为空！": End
ar = .Range("a1:c" & r)
End With
ReDim br(1 To 10000, 1 To 500)
x = 1: y = 1
For i = 2 To UBound(ar)
If ar(i, 1) <> "" Then
      t = d(ar(i, 1))
      If t = "" Then
         x = x + 1
         d(ar(i, 1)) = x
         t = x
         br(x, 1) = ar(i, 1)
      End If
      lh = d(ar(i, 2))
      If lh = "" Then
         y = y + 1
         d(ar(i, 2)) = y
         lh = y
         br(1, y) = ar(i, 2)
      End If
      br(t, lh) = ar(i, 3)
End If
Next i
With Sheets("目标")
.[a1].CurrentRegion = Empty
.[a2].Resize(x, y) = br
End With
MsgBox "ok!"
End Sub

3190496160 · 发表于 2024-10-14 15:24

导出1.rar (17.29 KB, 下载次数: 14)

发发哥abc · 发表于 2024-10-14 16:21

本帖最后由发发哥abc 于 2024-10-14 16:32 编辑

3190496160 发表于 2024-10-14 15:24

谢谢。别的都挺好，就是数据没取全。感谢你结果是

目标是

蓝桥玄霜 · 发表于 2024-10-14 16:37

导出的例子：

发发哥abc · 发表于 2024-10-14 17:22

蓝桥玄霜发表于 2024-10-14 16:37
导出的例子：

发发哥abc · 发表于 2024-10-14 17:35

发发哥abc 发表于 2024-10-14 17:22

这是复制了您的代码的文件

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

[求助] 文本的多条件分类汇总

评分