[已解决]数组转换格式

张雄友

dsmch 发表于 2015-5-26 08:40
Sub Macro1()
Dim arr, brr, d, i&, s&
Set d = CreateObject("scripting.dictionary")

前提不知是5xl还是7xl;等……

grf1973

1. Sub grf()
   
2.     Dim arr, brr, d, d1, i&, w()
   
3.     Set d = CreateObject("scripting.dictionary")
   
4.     Set d1 = CreateObject("scripting.dictionary")
   
5.     w = Array("货号", "M", "L")       ', "XL")
   
6.     Dim XL(100)  '最大可以99XL，够了吧
   
7.     arr = Range("a1").CurrentRegion
   
8.     For i = 2 To UBound(arr)
   
9.         d(arr(i, 1)) = ""
   
10.         cc = arr(i, 2)  '尺寸
    
11.         If cc Like "*XL" Then XL(Val(cc)) = cc
    
12.         x = arr(i, 1) & arr(i, 2)
    
13.         d1(x) = d1(x) + arr(i, 3)
    
14.     Next
    
15.     n = 2
    
16.     For i = 0 To UBound(XL)
    
17.         If Len(XL(i)) > 0 Then
    
18.             n = n + 1
    
19.             ReDim Preserve w(n)
    
20.             w(n) = XL(i)
    
21.         End If
    
22.     Next
    
23.     [g1].Resize(1, UBound(w) + 1) = w
    
24.     [g2].Resize(d.Count, 1) = Application.Transpose(d.keys)
    
25.     brr = [g1].CurrentRegion
    
26.     For i = 2 To UBound(brr)
    
27.         For j = 2 To UBound(brr, 2)
    
28.             brr(i, j) = d1(brr(i, 1) & brr(1, j))
    
29.         Next
    
30.     Next
    
31.     [g1].CurrentRegion = brr
    
32. End Sub

复制代码

张雄友

grf1973 发表于 2015-5-26 14:20

不行的。怎么A1，A2，A3，A4，A5，A6，A7，没有显示出来？？

爱疯

不知“不能排序”具体是指什么情况？

张雄友

爱疯 发表于 2015-5-27 09:53
不知“不能排序”具体是指什么情况？

请看。

爱疯

数组转换格式爱2.rar (14.09 KB, 下载次数: 1)

2015-5-27 18:32 上传

点击文件名下载附件


        .PivotFields("尺寸").PivotItems("M").Position = 1
        .PivotFields("尺寸").PivotItems("XL").Position = 3


由于尺寸的种类不多（6种），所以单独用（以上）2句来改变位置，也就相当于排了序。

张雄友

爱疯 发表于 2015-5-27 18:36
.PivotFields("尺寸").PivotItems("M").Position = 1
        .PivotFields("尺寸").PivotI ...

我的妈呀，还可以这样，太强大了，从来没有见过数据透视有这种功能！！！！！！强烈推荐。但是尺寸太多时，有点麻烦。

张雄友

爱疯 发表于 2015-5-27 18:36
.PivotFields("尺寸").PivotItems("M").Position = 1
        .PivotFields("尺寸").PivotI ...

数据透视出来的这个工作表，我要将它变成数值下面代码怎么不行的？

    With Sheets.Add
    .Value = .Value
    End With

怎么才对？

爱疯

Sub test3()
    On Error Resume Next
    Application.AddCustomList [e19:e24]
    On Error GoTo 0

    Sheets.Add after:=Sheets(Sheets.Count)
    With ActiveSheet.PivotTableWizard(xlDatabase, Sheets(1).[a1].CurrentRegion)
        .PivotFields("货号").Orientation = xlRowField
        .PivotFields("尺寸").Orientation = xlColumnField
        .PivotFields("数量").Orientation = xlDataField
    End With
End Sub
数组转换格式爱3.rar (13.24 KB, 下载次数: 7)

2015-5-27 21:37 上传

点击文件名下载附件



我发现一个奇怪的规律：
如果先把透视表列字段加入自定义序列，那么接下来创建的数据透视表，列字段顺序将按该顺序排序。
也就是说，当自定义序列集合里已经有了由所有列字段定义的自定义序列，那么透视表会优先按自定义序列排序。
试了多遍，好像是真的如此。


data工作表的e19:e24，表示自定义列表的存放区域。
如果你的excel中已手动添加了该自定义列表，那么绿色部分的代码可删掉。

爱疯

张雄友 发表于 2015-5-27 21:05
数据透视出来的这个工作表，我要将它变成数值下面代码怎么不行的？

    With Sheets.Add

如果要变成值，就这样：
    Dim A
    A = ActiveSheet.UsedRange
    Cells.Delete
    Range("a1").Resize(UBound(A), UBound(A, 2)) = A



With Sheets.Add
    .Value = .Value
End With

sheets.add就意味着是一个工作表对象（worksheet 对象）。
worksheet对象没有value属性，所以已经是错误了。至于赋值，那更是不可能的。