Excel宏以选择数据和空行

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

选择A至AD列，最后一行后有50个空行 这是有数据的。例如，如果数据转到第12行，我需要 选择A1:AD62。然后我需要将所有边框添加到单元格区域

我需要选择与之相邻的空白行。 列AC：广告添加到空白行。比如我 需要选择A13:AB62和AC1:AD62。然后我会格式化 这些单元格将删除保护中的锁定复选框 格式化

---

任何帮助都将不胜感激。

由重新调整的宏记录器（它是您的朋友！）输出提供，并假设它位于活动工作表上，而不是其他工作表上：

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

---

你能发布到目前为止宏的内容吗？谢谢！它工作得很好，但最后一行有数据显示为unlocked。所以在我的示例中，第1行到第11行是锁定的，但第12行（仍然有数据）显示为unlocked。任何帮助都将不胜感激。@user2962359编辑为包含+1，请尝试上述方法。