VBA如何为有数据的行与列添加边框

萧墙

目的是为了从A列A10开始，如果往下有数据，假如到A12有数据，希望添加A10:Q12的边框；假如到A13有数据，希望添加A10:Q13的边框，求大神解答，谢谢！

约定的童话

[A1].CurrentRegion.Borders.LineStyle = xlContinuous范围修改下使用

萧墙

约定的童话 发表于 2019-12-4 15:10
[A1].CurrentRegion.Borders.LineStyle = xlContinuous范围修改下使用

感激不尽！！！

约定的童话

萧墙 发表于 2019-12-4 15:36
感激不尽！！！

1花也是爱啊，哈哈

萧墙

约定的童话 发表于 2019-12-4 15:39
1花也是爱啊，哈哈

出了一个问题了。。原先能选择同一个工作簿的所有工作表运行宏，我把以下代码
Range("A10:Q51").Select
    With Selection
        .HorizontalAlignment = xlHAlignLeft
        .VerticalAlignment = xlVAlignCenter
        .AddIndent = False
        .IndentLevel = 0
        .Orientation = 0
        .WrapText = True
        .ShrinkToFit = False
    End With
    With Selection.Borders(xlEdgeLeft)
        .Weight = xlThin
        .LineStyle = xlContinuous
    End With
    With Selection.Borders(xlEdgeTop)
        .Weight = xlThin
        .LineStyle = xlContinuous
    End With
    With Selection.Borders(xlEdgeBottom)
        .Weight = xlThin
        .LineStyle = xlContinuous
    End With
    With Selection.Borders(xlEdgeRight)
        .Weight = xlThin
        .LineStyle = xlContinuous
    End With
    With Selection.Borders(xlInsideVertical)
        .Weight = xlThin
        .LineStyle = xlContinuous
    End With
    With Selection.Borders(xlInsideHorizontal)
        .Weight = xlThin
        .LineStyle = xlContinuous
    End With
    Selection.Borders(xlEdgeLeft).ColorIndex = xlColorIndexAutomatic
    Selection.Borders(xlEdgeTop).ColorIndex = xlColorIndexAutomatic
    Selection.Borders(xlEdgeBottom).ColorIndex = xlColorIndexAutomatic
    Selection.Borders(xlEdgeRight).ColorIndex = xlColorIndexAutomatic
    Selection.Borders(xlInsideVertical).ColorIndex = xlColorIndexAutomatic
    Selection.Borders(xlInsideHorizontal).ColorIndex = xlColorIndexAutomatic
改成[A1].CurrentRegion.Borders.LineStyle = xlContinuous后，添加边框只运用于一个工作表是什么原因呢？

萧墙

您好，改了后，选中sheet2和sheet3运行宏，其他动作在两个工作表都能运行，就加边框的动作只在其中一个工作表运行，是什么原因呢？