请求编写VBA代码：计算B列与D列末单元格差值并写入N1

没问题，这就给你写一段能精准完成需求的VBA代码，还会拆解关键逻辑，方便你后续调整：

Sub CalculateLastCellDifference()
    Dim ws As Worksheet
    Dim lastRowB As Long, lastRowD As Long
    Dim valB As Double, valD As Double
    
    ' 指定要操作的工作表，这里用当前激活的工作表，也可改成Sheet1这类具体名称
    Set ws = ActiveSheet
    
    ' 定位B列最后一个有数据的行
    lastRowB = ws.Cells(ws.Rows.Count, "B").End(xlUp).Row
    ' 定位D列最后一个有数据的行
    lastRowD = ws.Cells(ws.Rows.Count, "D").End(xlUp).Row
    
    ' 读取单元格值，用Val处理避免非数值内容引发报错
    valB = Val(ws.Cells(lastRowB, "B").Value)
    valD = Val(ws.Cells(lastRowD, "D").Value)
    
    ' 计算差值并写入N1单元格
    ws.Range("N1").Value = valB - valD
End Sub

关键逻辑说明 #

• 动态定位最后数据行：ws.Cells(ws.Rows.Count, "B").End(xlUp).Row是最稳妥的方式——从列的最底部往上找第一个非空单元格，不管列中间有没有空值，都能精准定位到最后一个有数据的位置，完美适配你提到的“单元格位置可能变动”的场景。
• 容错处理：用Val()函数读取单元格值，就算目标单元格是文本或者空白，也会自动转换成0，避免代码运行时抛出错误。
• 工作表灵活指定：代码里用ActiveSheet代表当前激活的工作表，如果你需要固定操作某张表，直接改成Set ws = ThisWorkbook.Sheets("你的工作表名称")即可。

使用方法 #

1. 打开目标Excel文件，按下Alt + F11打开VBA编辑器
2. 在左侧项目窗口右键点击你的工作簿，选择「插入」→「模块」
3. 将上面的代码粘贴到模块窗口中
4. 按下F5运行代码，或者回到Excel界面给这段代码绑定一个按钮，方便随时执行

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