Question

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

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

非常感谢任何帮助。

Answer 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

Excel宏以选择数据和空行

1 个答案: