[已解决]数组转换格式

爱疯

'创建方式2: 用数据透视表向导来创建
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

    Dim A
    A = Range("a1").CurrentRegion.Offset(1, 0)
    Cells.Clear
    Range("a1").Resize(UBound(A), UBound(A, 2)).Value = A
    Range("a1").CurrentRegion.Borders.LineStyle = 1
    ActiveWindow.DisplayGridlines = False
    Application.DeleteCustomList Application.CustomListCount    '删除最后一条（也就是本过程添加的）自定义序列
End Sub

数组转换格式爱6.rar (15.03 KB, 下载次数: 4)

2015-5-27 23:40 上传

点击文件名下载附件





与添加自定义序列作用相反的就是删除自定义序列，即 Application.DeleteCustomList 方法。
因为每当添加一个自定义序列时，索引值就会累加。
所以删除最大索引值的，便是删除最后（最近添加）的1条。

张雄友

爱疯 发表于 2015-5-27 23:44
'创建方式2: 用数据透视表向导来创建
Sub test3()
    On Error Resume Next

明天再丨！好累啊……！谢谢！

张雄友

爱疯 发表于 2015-5-27 23:44
'创建方式2: 用数据透视表向导来创建
Sub test3()
    On Error Resume Next

早上好：
Application.AddCustomList [e19:e24]

直接将排序条件写入代码中是否可行？？？？？？？？？？？？

   arr = Array("M", "L", "XL", "2XL", "3XL", "4XL")
   Application.AddCustomList arr

有没有后遗证？

爱疯

Sub test7()
    On Error Resume Next
    Application.AddCustomList Array("M", "L", "XL", "2XL", "3XL", "4XL")    '用了数组，就可以不用辅助区
    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

    Dim A
    A = Range("a1").CurrentRegion.Offset(1, 0)
    Cells.Clear
    Range("a1").Resize(UBound(A), UBound(A, 2)).Value = A
    Range("a1").CurrentRegion.Borders.LineStyle = 1
    ActiveWindow.DisplayGridlines = False
    Application.DeleteCustomList Application.CustomListCount    '删除最后一条（也就是本过程添加的）自定义序列
End Sub



说明：
绿色部分执行后，excel中新增加一条自定义序列。
执行其它操作，...
蓝色部分执行后，由绿色部分增加的自定义序列便删除了。也就是说，没有'后遗症'。

张雄友

爱疯 发表于 2015-5-28 09:11
Sub test7()
    On Error Resume Next
    Application.AddCustomList Array("M", "L", "XL", "2XL", "3 ...

执行时除了源工作表外其它的工作表先删除怎么增加代码？因为每执行一次工作表越来越多……

爱疯

数组转换格式爱8.rar (14.75 KB, 下载次数: 7)

2015-5-28 15:26 上传

点击文件名下载附件

运行时，将先删除Sheets("Total")，再新建Sheets("Total")。
从而不会发生“每执行一次工作表越来越多”的情况。

张雄友

爱疯 发表于 2015-5-28 15:30
运行时，将先删除Sheets("Total")，再新建Sheets("Total")。
从而不会发生“每执行一次工作表越来越多 ...

我将它毁灭性删除再生产！

    For Each sh In ThisWorkbook.Worksheets
        If sh.Name <> "data" Then
            sh.Delete
        End If
    Next sh

爱疯

张雄友 发表于 2015-5-28 18:25
我将它毁灭性删除再生产！

    For Each sh In ThisWorkbook.Worksheets

也可以。

张雄友

爱疯 发表于 2015-5-28 19:07
也可以。

怎么不行的？ Sheets.Add after:=Sheets(Sheets.Count)

每执行一次就会多了一个空表出来。表名是：Sheet1,Sheet2,Sheet3,Sheet4,Sheet5,    。。。。。。请指点。

张雄友

爱疯 发表于 2015-5-28 19:07
也可以。

39楼怎么预防？