Question

EXCEL 用VBA设置框线，只要有内容就添加框线，一页12行框线

EXCEL 用VBA设置框线，只要有内容就添加框线，一页12行框线，只要第二页有一条内容，页添加12行框线

Answer 1

Sub 设置框线()
    Dim x, y
    x = ActiveSheet.UsedRange.Rows.Count '使用的行数
    y = ActiveSheet.UsedRange.Columns.Count '使用的列数
    x = WorksheetFunction.RoundUp(x / 12, 0) * 12 '按12对齐
    With ActiveSheet.UsedRange.Resize(x, y).Borders
        .LineStyle = xlContinuous
        .Weight = xlThin
    End With
End Sub

Answer 2

这个倒不难，只是不理解一页12行框线是什么意思？