表格分页

雲水禪

请教如何分表，如此表黄色区域是数据透视，当选中某个区域后，只要点个按钮就会把此页按筛选出的区域为名新建一个Sheet页，把并表中的格式以及内容（去掉透视与公式）带过去。就类似复制一张表，去掉公式，以筛选区域为Sheet页命名。 请教高手！谢谢

雲水禪

求高手啊解答，高手涅

雲水禪

这啥子情况涅，怎么没回音..........

coolall

附件是测试表v1.0 看看是不是你所需要的工具。

雲水禪

coolall 发表于 2016-4-27 13:57
附件是测试表v1.0 看看是不是你所需要的工具。

谢谢您，效果是这样的，但少了格式拷贝。看了下代码，好复杂。请问下还有范围怎么改啊，这只是个测试表。

coolall

简单修改一个v2.0版本 看看这回对不对？

雲水禪

coolall 发表于 2016-4-28 14:53
简单修改一个v2.0版本 看看这回对不对？

谢谢您了，您看下我的例表吧，因为我上传的只是例表，范围很小，但把宏我自己用的工作表上时，就么效果，你现在的宏好像只针对这个表有效。

coolall

你可以把数据贴到这个表里再处理，或者你把我写的代码完全copy过去，有模块1和模块2两个部分

coolall

'20160426 13：53  作者：coolall 北京
Sub run()
    Row = Sheets(2).Range("a65536").End(xlUp).Row
    Sheets.Add After:=Sheets(Sheets.Count)
    Sheets(Sheets.Count).Name = Sheets(2).Cells(1, 2) & "-" & Trim(Str(Sheets.Count))
    For i = 1 To Row
        For j = 1 To 3
            Cells(i, j) = Sheets(2).Cells(i, j)
        Next j
    Next i
    Range("A1").Select
    Call 宏2
End Sub
Sub 宏2()

    Range("A1:B1").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorLight2
        .TintAndShade = 0.8
        .PatternTintAndShade = 0
    End With
    Range("A3:C3").Select
    Selection.Font.Bold = True
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorLight2
        .TintAndShade = 0.399975585192419
        .PatternTintAndShade = 0
    End With
    With Selection.Font
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = 0
    End With

    Columns("B:B").EntireColumn.AutoFit
    Columns("C:C").EntireColumn.AutoFit
    Row = Sheets(2).Range("a65536").End(xlUp).Row
Dim lineName As String
lineName = "A" & Trim(Str(Row)) & ":C" & Trim(Str(Row))
    Range(lineName).Select
    Selection.Font.Bold = True
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    Selection.Borders(xlEdgeLeft).LineStyle = xlNone
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ThemeColor = 5
        .TintAndShade = -0.249946592608417
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ThemeColor = 5
        .TintAndShade = -0.249946592608417
        .Weight = xlMedium
    End With
    Selection.Borders(xlEdgeRight).LineStyle = xlNone
    Selection.Borders(xlInsideVertical).LineStyle = xlNone
    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
    Range("A1").Select
End Sub

coolall

这样吧，把这段代码全部贴到你的宏里试试吧。