使用VBA在Excel中镜像单元格值

Question

我正在尝试使用下面的代码确定某些单元格的值，但它在一行（Worksheets（wsName）.Range）上出现错误（对象'Worksheet'的方法'Range'失败）。 我想这是因为我要引用具有相同工作表的数据，但是我找不到要放置的内容而不是工作表。 如果单元格D5中的值更改，它也不会更新，只是保持其原来在F5中的值。 谁能帮我这个忙吗？

Public Sub Worksheet_Change(ByVal Target As Range)
   MirrorCells
End Sub
Public Sub MirrorCells()
   Dim DestinationWS As Variant
   DestinationWS = Array("Stock Levels") 
   Dim wsName As Variant

   For Each wsName In DestinationWS
      Worksheets(wsName).Range("F5") = Range("D5")
   Next wsName
End Sub

Answer 1

您处于循环中。 您继续更新单元格...

  If (Worksheets(wsName).Range("F5").Value <> Range("D5").Value) Then
    Worksheets(wsName).Range("F5").value = Range("D5").value
  End If