Question

我正在尝试使用下面的代码来处理某些单元格的值，但它在一行（Worksheets（wsName）.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

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

1 个答案: