在一个范围内共享Excel单元格值

在Excel中是否可以执行类似的操作

A列保留用于检查特定项目（通过键入X）。在B列中有集合的名称，在C列中有特定的书籍。如果用户在一套书中至少检查一本书，则应检查整套书

如果有一个“根”单元格，其他人只需从中获取引用，这将非常简单。问题是，用户可以检查集合中的任何单元格，然后进行循环引用

---

到目前为止，我还没有使用过宏，所以在这个问题上我完全是新手。

下面的事件宏将监视A列中的更改。如果在列A中输入了“X”，则宏将从列B中选取集合名称，并在列B中查找此集合名称的其他实例。如果找到，则在列A中放置一个“X”

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim A As Range, nB As Long, B As Range, r As Range
    Dim v As String
    Set A = Range("A:A")
    If Intersect(Target, A) Is Nothing Then Exit Sub
    If Target.Count <> 1 Then Exit Sub
    If Target.Value <> "X" Then Exit Sub
    nB = Cells(Rows.Count, "B").End(xlUp).Row
    Set B = Range("B1:B" & nB)
    Application.EnableEvents = False
    v = Target.Offset(0, 1).Text
    For Each r In B
        If r.Text = v Then
            r.Offset(0, -1).Value = "X"
        End If
    Next r
    Application.EnableEvents = True
End Sub

Private子工作表\u更改（ByVal目标作为范围）
调暗A为范围，nB为长度，B为范围，r为范围
将v作为字符串
设置A=范围（“A:A”）
如果Intersect（Target，A）为空，则退出Sub
如果目标计数为1，则退出Sub
如果目标值为“X”，则退出Sub
nB=单元格（行数，“B”）。结束（xlUp）。行
设置B=范围（“B1:B”和nB）
Application.EnableEvents=False
v=目标偏移量（0，1）。文本
对于B中的每个r
如果r.Text=v，则
r、 偏移量（0，-1）。Value=“X”
如果结束
下一个r
Application.EnableEvents=True
端接头

由于它是工作表代码，因此安装和自动使用非常容易：

在Excel窗口底部附近的选项卡名称上单击鼠标右键

选择查看代码-这将打开一个VBE窗口

粘贴内容并关闭VBE窗口

如果您有任何顾虑，请先在试用工作表上试用

如果保存工作簿，宏将与工作簿一起保存。 如果在2003年以后使用Excel版本，则必须保存 文件的格式为.xlsm而不是.xlsx

要删除宏，请执行以下操作：

如上所述打开VBE窗口

清除代码

关闭VBE窗口

要了解有关宏的更多信息，请参阅：

及

要了解有关事件宏（工作表代码）的详细信息，请参阅：

---

必须启用宏才能工作

如果你证明自己做出了某种努力，并在遇到困难时提出问题，你会在这里有更好的体验。建议从何处开始，使用宏记录器模拟您希望在代码中发生的事情。由于您是VBA新手，这将让您了解引擎盖下的工作方式。祝你好运我问这个问题的原因是为了避免被不必要地卡住。我只想要一个简单的“是的，这是可能的”或“不，这是不可能的”。我不想浪费时间去尝试一些无法实现的事情。。。回答一个简单的问题真的需要这么多吗？非常感谢你这么全面的回答。如果你有进一步的问题，请更新这篇文章。