将 Selection Interior ColorIndex 复制到不同工作表上的相同区域

Copy Selection Interior ColorIndex to same area on different Worksheet

我正在尝试将突出显示的 select离子的颜色索引复制到不同的作品sheet。

我有 4 个不同的作品sheet,在 sheet 1 上,用户可以为单元格着色。然后我希望他能够 select 这些单元格的一个区域,并通过单击触发我的子“Mark_all”的按钮将颜色复制到所有其他 sheets(相同位置) .

我卡住了,因为“selection”似乎包含制作 selection 的作品sheet。

这是我尝试过的:

Dim CurCell As Range
Dim ColCurCell As Integer
Dim cWs As Worksheet

Sub Mark_all()
For Each CurCell In Selection
ColCurCell = CurCell.Interior.ColorIndex
    For Each cWs In Application.ActiveWorkbook.Worksheets
    If cWs.Name <> "A Worksheet I DonT want to be changed" Then
    CurCell.Interior.ColorIndex = ColCurCell  '<-- Here I dont know how to combine my CurCell with the other Worksheets
    End If
    Next
Next
End Sub

谢谢:-)

使用 .Address:

For Each cWs In Application.ActiveWorkbook.Worksheets
    If cWs.Name <> "A Worksheet I DonT want to be changed" Then
        cWs.Range(CurCell.Address).Interior.ColorIndex = ColCurCell
    End If
Next