vba - 将工作表中所有未 protected 单元格复制到另一张工作表并保持位置

Question

工作簿 A 中的工作表 1 包含一些带有 protected 公式的单元格和一些用于输入未 protected 数据的单元格。有多个文件使用这种结构。

我现在更新了模板文件中使用相同结构的公式。
我想要做的是复制所有未 protected 单元格并将它们移动到新文件中的相同位置。

假设范围是 A1:R99 并且我在 B1:B99 和 G1:G99 中有不 protected 单元格(实际文件中有多个不同的位置，因此输入所有不同的范围需要很长时间)然后我想将 B1:B99 复制到同一个放在新文件中。
希望有比手动输入每个范围更好的方法!

Answer 1

假设您在“Sheet1”中有数据，并且如果要将所有未 protected 单元格复制到新工作表中，假设“Sheet2”与它们在“Sheet1”中的位置相同，那么

Sub Foo()

If Sheets("Sheet1").ProtectContents = True Then

    Worksheets("Sheet1").Activate
    For i = 1 To 99
        For j = 1 To 18
            If Cells(i, j).Locked = False Then
                a = Cells(i, j).Value
                Worksheets("Sheet2").Activate
                Cells(i, j).Value = a
                Worksheets("Sheet1").Activate
            End If
        Next j
    Next i

End If

End Sub