如何在Excel 2013中镜像单元格

埃桑·加比（Ehsan Ghabchi）

我想制作一个用于我公司销售管理的Excel文件。我创建的Excel有4张纸，每张纸都由不同的人处理。

我想将这些工作表的第一列专用于每个订单的状态，以便当有人更改一个工作表编号中的状态时，其他3个工作表中的状态列也发生更改。同样，当另一个人更改纸页编号2中的状态时，纸页编号1,3和4也将更改。

是否有可能？如果是这样，我该怎么办？

戴维年科

将此代码放在Sheet1模块中（右键单击Sheet1选项卡并选择“查看代码”）：

Private Sub Worksheet_Change(ByVal Target As Range)

Dim rFrom as Range

If Target.Count = 1 Then
    With Target.WorkSheet
         Set rFrom = .Range("A:A")
         If Not Intersect(Target, rFrom) Is Nothing Then
             Application.EnableEvents = False
             'Include next line Just in Case something happens
             '    You don't want to leave EnableEvents off
             On Error Resume Next
             rFrom.Copy Worksheets("Sheet2").Range("A:A")
             If Err.Number <> 0 Then
                 Msgbox "Error Occurred"
             End If
             Application.EnableEvents = True
         End If
     End With
End If
End Sub

将相同的工作表Sheet2（显然更改适当的地址）。更改到Sheet2的工作表Sheet1

仅更改一张工作表：
= Sheet1！A：A如果您希望另一个工作表中的单元格反映Sheet1中A列中的单元格。

在超级用户上也要问的另一个问题与您的相似但不相同。

本文收集自互联网，转载请注明来源。

如有侵权，请联系 [email protected] 删除。