Excel自动填充单元格需求：点击表格价格填充B17并计算折扣价

一、实现点击价格自动填充到B17单元格 #

Excel没有自带点击单元格触发填充的功能，用简单的VBA代码就能实现：

1. 打开你的Excel文件，按下Alt + F11打开VBA编辑器
2. 在左侧“工程资源管理器”里找到对应的工作表（比如Sheet1），双击进入代码编辑界面
3. 在右侧代码窗口粘贴以下代码：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ' 把Range("A1:D10")改成你实际的价格表格区域
    If Not Intersect(Target, Range("A1:D10")) Is Nothing And Target.Cells.Count = 1 Then
        Range("B17").Value = Target.Value
    End If
End Sub

4. 修改代码里的Range("A1:D10")为你价格表格的真实范围
5. 按下Ctrl + S保存文件，选择“Excel 启用宏的工作簿（*.xlsm）”格式，否则代码无法生效
6. 返回工作表，点击价格表格里的任意单个价格单元格，B17就会自动填充对应数值

二、设置折扣并计算折扣后价格 #

1. 在E17单元格直接输入20%（或者0.2，两者效果一致）
2. 在H17单元格输入公式：=B17*(1-E17)，按下回车后，只要B17有数值，H17就会自动算出打8折后的价格

注：Autosum是自动求和工具，这里是计算折扣后价格，用乘法公式更直接，不需要用到Autosum

内容的提问来源于stack exchange，提问作者Simon Tarr