购物时，除免税商品外，销售税通常是一笔额外支出。准确计算已支付的销售税金额，对个人理财和企业会计都大有裨益。在 Excel 中，计算销售税的方法取决于您的价格是不含税（税款未包含在内）还是含税（税款已包含在价格中）——不同情况需采用略有差异的计算方式，才能精准得出实际支付的销售税金额。

• 在获得不含税价格时计算销售税
• 在获得含税价格时计算销售税
• 使用 VBA 代码在 Excel 中自动计算销售税

为便于参考，下图展示了数据在 Excel 工作表中的典型组织方式：

在获得不含税价格时计算销售税

通常，您收到或记录的产品价格可能不含销售税（即不含税价格）。此时，销售税的计算非常简单：只需将不含税价格乘以适用的销售税率即可。

当发票、收据或价目表中的价格不含税，而您希望明确除购买金额外还需缴纳多少税款时，此方法尤为适用。它不仅助力小型企业高效开具含税发票，也便于个人在规划支出时精准预算。

例如，如果您的不含税产品价格位于单元格 B1，适用的销售税率（以小数表示，如 0.07 表示 7%）位于单元格 B2：

选择您希望显示销售税的单元格，然后输入以下公式：

=B1*B2

输入公式后，按 Enter 键，系统将根据您输入的值显示销售税金额。

例如，若 B1 为 100，B2 为 0.08，Excel 将返回 8，表示销售税为 8 个货币单位。

提示与注意事项：

• 请务必以小数（例如 0.08 表示 8%）或百分比格式输入税率。若输入整数（例如 8），计算结果将高达预期值的 8 倍。
• 如果您的数据位于不同的单元格中，请相应调整公式中的引用。
• 请再次确认当地适用的税率规则，因为部分商品可能因地区差异而适用不同税率或享受免税正策。务必核实准确税率，以免造成财务记录错误。

结果应如下所示：

如果出现 #VALUE! 等错误，请检查两个引用单元格是否均为数值，并确认税率是否已按小数形式输入。

借助 KUTOOLS AI 解锁 Excel 的神奇功能

• 智能执行：只需输入简单命令，即可执行单元格操作、分析数据并创建图表。
• 自定义公式：生成量身定制的公式，助您优化工作流程！
• VBA 编码：轻松编写并运行 VBA 代码。
• 公式解析：轻松掌握复杂公式，一目了然！
• 文本翻译：轻松打破电子表格中的语言障碍！

在获得含税价格时计算销售税

有时，尤其是在某些地区或零售环境中，您看到的价格已包含销售税（即含税价）。要计算该金额中所含的销售税，您需要调整公式，仅提取其中的税款部分。

此类情况常见于收据、部分电商平台或销售汇总数据中。掌握如何“反向计算”税款，有助于会计处理、费用报销及税务审计。

假设含税价格位于单元格 E4，税率（以小数形式表示）位于单元格 E2. 要从总价中分离出销售税金额，请按以下步骤操作：

选择您希望显示计算出的销售税的单元格，然后输入以下公式：

=E4-E4/(1+E2)

按 Enter 确认公式，该单元格将立即显示原始含税价格中所包含的销售税金额。

在此公式中，E4/(1+E2) 用于计算税前价格，再从总价中减去该值，即可分离出税款。例如，若 E4 为 108，E2 为 0.08，则结果为 8，即其中所含的税款。

实用提示与故障排除：

• 请始终以小数（例如 0.08 表示 8%）或百分比格式输入税率。
• 当您需要为申报目的核对已缴税款，或向客户开具含税价格的发票时，此方法尤为理想。
• 若价格或税率单元格包含非数值内容，公式可能会出错，请务必仔细核对数据准确性。
• 如果您的工作表中价格和税率位于不同位置，请相应调整单元格引用。

计算出的销售税将显示在您选定的单元格中，如下图所示：

在实际应用中，选择哪种计算方法取决于您手头的数据和具体的报告需求：第一种方法适用于价格不含税的情形，第二种则适用于价格已含税的情形。

有时，您可能希望利用 Excel 的内置功能对多行数据执行此类计算，或使用动态参数。例如，使用命名区域替代直接的单元格引用，可显著提升公式的可读性；或创建汇总表，一次性对交易列表批量应用计算。若需频繁计算销售税，建议添加输入验证，确保税率与价格准确无误。

使用 VBA 代码在 Excel 中自动计算销售税

如果您经常需要为大型数据集计算销售税，或希望实现自动化处理，不妨考虑使用自定义 VBA 宏。当标准公式变得繁琐，或需将其集成到更复杂的 Excel 工作流中时，这一方案尤为实用。

1. 转到开发工具 > Visual Basic。在 Microsoft Visual Basic for Applications 窗口中，单击插入 > 模块，然后将以下代码输入到模块中：

Sub CalculateSalesTaxBatch()
    Dim taxRate As Double
    Dim rng As Range, cell As Range
    Dim resultColumn As String
    On Error Resume Next
    xTitleId = "KutoolsforExcel"
    taxRate = Application.InputBox("Enter sales tax rate (e.g., 0.08 for 8%)", xTitleId, 0, Type:=1)
    Set rng = Application.InputBox("Select the range of prices (tax-exclusive)", xTitleId, Type:=8)
    resultColumn = Application.InputBox("Enter column LETTER for results (e.g., B)", xTitleId, "B", Type:=2)
    If rng Is Nothing Then Exit Sub
    For Each cell In rng
        cell.Worksheet.Cells(cell.Row, resultColumn).Value = cell.Value * taxRate
    Next cell
End Sub

2. 输入代码后，单击按钮执行：输入销售税率（例如 0.08），选择要处理的价格范围，并指定目标结果列（如“B”），宏将自动在您的价格数据旁填入销售税计算结果。

此方法可有效减少重复的手动计算，确保结果准确并节省宝贵时间。如遇错误，请确认您拥有运行宏的相应权限，并确保输入格式正确无误。