如何提取单元格数值作为单元格引用并向目标单元格赋值？

方法一：使用Excel公式（无需编程） #

在需要填充的目标单元格中直接写入条件判断公式，匹配你的需求场景：

• 在B3单元格输入：=IF($B$52=3,1,"")
• 在B7单元格输入：=IF($B$52=7,1,"")

公式说明： #

• $B$52是绝对引用，确保公式复制到其他单元格时不会改变对B52的指向
• 当B52的值等于对应数字（3或7）时，单元格显示1，否则显示空值

如果需要支持更多数值，只需在对应目标单元格添加类似结构的公式即可。

方法二：使用VBA宏（自动触发填充） #

如果需要在B52数值变化时自动完成填充（且可自动清空旧值），可以用工作表事件宏：

1. 按下Alt+F11打开VBA编辑器
2. 在左侧工程窗口中找到目标工作表，双击打开代码窗口
3. 粘贴以下代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 仅响应B52单元格的修改操作
    If Target.Address = "$B$52" Then
        ' 清空之前可能填充的单元格（可选，按需保留）
        Range("B3,B7").ClearContents
        ' 根据B52的值填充对应单元格
        Select Case Target.Value
            Case 3
                Range("B3").Value = 1
            Case 7
                Range("B7").Value = 1
            ' 可添加更多Case语句扩展其他数值的处理逻辑
        End Select
    End If
End Sub

代码说明： #

• 当B52单元格的值被修改时，代码会自动执行
• 先清空B3、B7的旧内容，再根据新数值填充对应单元格为1
• 若需要支持更多数值，在Select Case中添加Case X和对应的填充语句即可

内容的提问来源于stack exchange，提问作者Jerry Mallett