Excel宏选择数据和空白行答案

【问题标题】：Excel Macro to select data and blank rowsExcel宏选择数据和空白行
【发布时间】：2015-09-11 11:47:05
【问题描述】：

提前感谢您的帮助。我有一个电子表格，其中包含 A 到 AD 列中的数据，并且每次使用电子表格时数据行都不同。我需要能够在宏中做两件事

选择列 A 到 AD，最后一行后有 50 个空白行有数据的。例如，如果数据进入第 12 行，我需要选择 A1:AD62。然后我需要将所有边框添加到单元格范围
然后我需要选择与列 AC:AD 直到添加的空白行。例如我需要选择 A13:AB62 和 AC1:AD62。然后我会格式化这些单元格删除保护中的锁定复选框格式化。

任何帮助将不胜感激。

【问题讨论】：

你能发布到目前为止你对宏的看法吗？

标签： excel vba

【解决方案1】：

感谢重新调整的宏记录器（它是你的朋友！）输出并假设它在活动工作表上而不是在其他工作表上：

Sub formatAndUnlock()

Dim lCount As Long

    With ActiveSheet

        lCount = .Range("A65536").End(xlUp).Row

        With .Range("A1:AD" & lCount + 50)
            .Borders(xlEdgeLeft).Weight = xlThin
            .Borders(xlEdgeTop).Weight = xlThin
            .Borders(xlEdgeBottom).Weight = xlThin
            .Borders(xlEdgeRight).Weight = xlThin
            .Borders(xlInsideVertical).Weight = xlThin
            .Borders(xlInsideHorizontal).Weight = xlThin
        End With

        .Range("A" & lCount +1 & ":AB" & lCount + 50).Locked = False
        .Range("AC1:AD" & lCount + 50).Locked = False

    End With

End Sub

【讨论】：

谢谢！它工作得很好，但有数据的最后一行显示未锁定。因此，使用我的示例，第 1 到 11 行被锁定，但第 12 行（仍有数据）显示未锁定。任何帮助将不胜感激。
@user2962359 已编辑为包含 +1，请尝试上述方法。