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

我试图使用下面的代码计算某些单元格的值，但在一行（工作表（wsName）.Range）上出现错误（对象“工作表”的方法“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

---

你处于一个循环中。您继续更新单元格

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

If（工作表（wsName）.Range（“F5”）.Value-Range（“D5”）.Value）然后
工作表（wsName）.Range（“F5”）.value=范围（“D5”）.value
如果结束

您是否尝试过工作表（wsName）。范围（“F5”）。值=范围（“D5”）。值