0

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

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

任何帮助将不胜感激。

4

1 回答 1

0

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

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
于 2013-11-07T13:46:52.340 回答