一、Excel中生成合同编号

1. 使用序列号功能（推荐）

操作步骤：

1. 在空白单元格输入合同编号前缀（如"HT"）；

2. 输入当前日期（如20250212）；

3. 选中单元格，拖动填充柄生成连续编号；

4. 若需添加序号，可在日期后添加`TEXT（RANDBETWEEN（1,10）,"00"）`生成随机数。

公式示例：`=TEXT（NOW（）,"yyyymmdd"）&TEXT（RANDBETWEEN（1,10）,"00"）`（适用于2025年2月12日后的编号）。

2. 使用VBA代码自动生成

操作步骤：

1. 按`Alt + F11`打开VBA编辑器；

2. 在模块中输入以下代码：

```vba

Sub 生成合同编号和日期()

Dim ws As Worksheet

Dim lastRow As Long

Dim contractNumber As String

Dim contractDate As Date

Set ws = ThisWorkbook.Worksheets("Sheet1") ' 修改为实际工作表名称

lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row + 1

contractNumber = "CN" & Format(lastRow, "0000") ' 生成格式为CN0001

contractDate = Date

ws.Cells(lastRow, 1).Value = contractNumber

ws.Cells(lastRow, 2).Value = contractDate

End Sub

```

3. 运行代码自动生成编号。

3. 手动输入并设置格式

操作步骤：

1. 输入编号规则（如"ABD-00001"）；

2. 选中单元格，设置自定义格式（如`000000`）；

3. 使用`SUBSTITUTE`函数批量生成编号（如`=SUBSTITUTE（B9,2024,2025）`）。

二、Word中添加合同编号

1. 使用域代码自动生成

操作步骤：

1. 按`Ctrl + F9`插入域代码框；

2. 输入`{DATE @ "yyyy"}`生成当前日期，或`{SEQ agreement "0000"}`生成序号；

3. 根据需要组合域代码（如`DATE {yyyy} - SEQ agreement "0000"`）；

4. 更新文档时，按`F9`刷新域代码。

2. 使用文本框插入编号

操作步骤：

1. 在页脚或指定位置插入文本框；

2. 设置文本框格式为"右上角居中"；

3. 输入编号规则（如"ABD-00001"），并通过"格式形状"调整对齐方式。

三、注意事项

唯一性原则：

确保编号在合同库中唯一，避免重复；

格式规范：

使用`DATEVALUE`函数确保日期格式正确；

批量处理：

建议先制作模板，再批量填充数据。

通过以上方法，您可高效地为合同添加编号，提升文档管理效率。