在VBA中粘贴为值的问题

Question

我在粘贴时遇到问题多值选择，这就是我要做的事情： 我有一个电子表格，每个单元格都有一个公式，我想创建一个宏来复制每个单元格并粘贴自身作为值（为了删除每个公式）。问题是有一些单元格已被锁定，因此如果我尝试复制并粘贴它们，则excel会返回错误并停止该过程。 现在我有两种可能性：

案例1：单独复制和过去作为每个单元格的值，但我有很多单元格，我必须经常这样做。

案例2：创建一个只包含未锁定单元格的大选择，然后将它们复制并粘贴到所有单元格中。

案例2似乎是更好的选择，但是使用excel我无法复制和粘贴多个选择...有没有人给我一个提示？ 我虽然采取了大片的选择，然后逐一复制并粘贴选择的每一个块，但我不知道是否可能：（

Answer 1

循环选择每个单元格并检查它们是否像这样被锁定：

For Each Z In Selection
  if Not Z.Locked Then
   'do copy paste here
  End If
Next Z