[已解决]简化代码

乐乐2006201506

我是VBA菜鸟，请哪位大师简化一下红色部分代码，谢谢！
Sub Macro1()
    Range("A1:B1").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("A6:B80").Select
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    Range("A2").Select
End Sub

最佳答案

月排行榜 / 总排行榜

爱疯

2016-4-28 09:36

1楼说，优化红色，因此2楼只1句。1楼代码的整体功能如下
Sub Macro1()
    Range("A1:B1").Copy
    With Range("A6:B80")
        .PasteSpecial Paste:=xlPasteFormats
        .Borders.LineStyle = 1
    End With
End Sub


3楼说，要达到合并A6：B6……A80：B80的目的。
1楼代码中哪有合并？
3楼说的合并是什么？
建议上传附件，模拟一下结果。

跳转到最佳答案楼层

爱疯

Sub test()
    Range("A6:B80").Borders.LineStyle = 1
End Sub

乐乐2006201506

其实要达到合并A6：B6……A80：B80的目的，但是你这个是不是太简单了，还是我操作有问题，能不能麻烦您上传个附件以做示范，谢谢！

爱疯

1楼说，优化红色，因此2楼只1句。1楼代码的整体功能如下
Sub Macro1()
    Range("A1:B1").Copy
    With Range("A6:B80")
        .PasteSpecial Paste:=xlPasteFormats
        .Borders.LineStyle = 1
    End With
End Sub


3楼说，要达到合并A6：B6……A80：B80的目的。
1楼代码中哪有合并？
3楼说的合并是什么？
建议上传附件，模拟一下结果。