Excel能否实现新收据自动递增订单号与客户编号？

完全可以实现，下面给你两种实用的方法，兼顾便捷性和单元格保护需求：

一、订单号自动递增（每新增收据生成新号） #

方法1：利用Excel表格自动填充 #

1. 把你的收据区域转换成Excel表格（选中区域→按Ctrl+T→勾选「我的表格有标题」）
2. 在订单号列的第一个数据单元格输入初始编号（比如ORD001）
3. 选中这个单元格，鼠标移到单元格右下角的填充柄上，按住右键往下拖，选择「填充序列」
4. 之后每次在表格末尾新增一行收据，订单号会自动按序列递增
5. 保护设置：选中订单号列→右键「设置单元格格式」→「保护」→勾选「锁定」，然后点击「审阅」选项卡→「保护工作表」，设置密码后，订单号单元格就无法手动修改，但表格新增行时仍会自动生成编号

方法2：VBA宏一键生成新收据+订单号 #

如果需要更灵活的控制（比如自定义编号格式），可以用宏实现：

1. 按Alt+F11打开VBA编辑器，插入新模块，粘贴以下代码：

Sub 生成新收据()
    Dim lastRow As Long
    Dim newOrderNo As String
    
    ' 获取最后一行订单号
    lastRow = Sheets("收据表单").Cells(Rows.Count, "A").End(xlUp).Row
    ' 生成新订单号（假设订单号在A列，格式为ORD+三位数字）
    newOrderNo = "ORD" & Format(Val(Right(Sheets("收据表单").Range("A" & lastRow), 3)) + 1, "000")
    
    ' 复制模板行到新行
    Sheets("收据表单").Rows("2:2").Copy Sheets("收据表单").Rows(lastRow + 1)
    ' 写入新订单号
    Sheets("收据表单").Range("A" & lastRow + 1).Value = newOrderNo
    ' 清空客户信息等可编辑内容
    Sheets("收据表单").Range("B" & lastRow + 1 & ":D" & lastRow + 1).ClearContents
End Sub

2. 回到Excel，给宏添加一个快速访问工具栏按钮，点击就能生成带新订单号的空白收据
3. 保护设置：同样锁定订单号单元格，保护工作表时勾选「允许此工作表的所有用户进行」里的「运行宏」，确保宏能正常执行

二、客户编号自动递增（新客户生成新号，老客户调用已有编号） #

这个需要结合查找功能来判断客户是否存在，推荐用公式+辅助列的方式：

1. 新建一个「客户信息表」，记录已有的客户名称和对应的客户编号（比如A列客户名，B列客户编号）
2. 在收据表单的客户编号单元格输入公式（假设客户名称在收据表的B列，客户信息表名为「客户库」）：

=IFERROR(XLOOKUP(B2,客户库!A:A,客户库!B:B, "NEW" & TEXT(COUNTA(客户库!A:A)+1,"000")), "NEW" & TEXT(COUNTA(客户库!A:A)+1,"000"))

3. 当输入新客户名称时，公式会自动生成格式为NEW001的新编号；输入老客户名称时，会自动调取已有的客户编号
4. 保护设置：锁定客户编号单元格，同时确保「客户信息表」可以被公式访问，保护工作表时不要勾选不必要的限制，确保公式能正常运行

最后，所有设置完成后，记得测试新增收据、输入新老客户的场景，确保编号自动生成且单元格无法手动修改。

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