当前位置:首页 > 编程技术 > 正文

excel如何让凭证号自动上升

excel如何让凭证号自动上升

在Excel中,让凭证号自动上升可以通过以下几种方法实现: 方法一:使用公式1. 假设凭证号在A列,第一行是标题行。2. 在第二行的A2单元格中输入公式: ```exc...

在Excel中,让凭证号自动上升可以通过以下几种方法实现:

方法一:使用公式

1. 假设凭证号在A列,第一行是标题行。

2. 在第二行的A2单元格中输入公式:

```excel

=IF(A1="", 1, A2+1)

```

这样,A2单元格的凭证号会自动比A1单元格的凭证号大1。

3. 将A2单元格的公式向下拖动或填充,以应用到其他单元格。

方法二:使用条件格式

1. 选中包含凭证号的列。

2. 点击“开始”选项卡中的“条件格式”。

3. 选择“新建规则”。

4. 选择“使用公式确定要设置的格式”。

5. 在“格式值等于以下公式时”输入:

```excel

=COUNTIF($A$1:A1)<1

```

6. 点击“格式”按钮,设置你希望的格式。

7. 点击“确定”两次,返回到工作表。

方法三:使用数据验证

1. 选中凭证号所在的单元格。

2. 点击“数据”选项卡中的“数据验证”。

3. 在“设置”选项卡中,选择“允许”为“序列”。

4. 在“来源”框中输入公式:

```excel

=COUNTIF($A$1:A1)<1

```

5. 点击“确定”。

方法四:使用VBA宏

1. 打开Excel开发者工具(如果未安装,需要先安装)。

2. 在“视图”选项卡中,点击“宏”。

3. 点击“创建”。

4. 输入以下VBA代码:

```vba

Sub 自动凭证号()

Dim rng As Range

Set rng = Selection

Dim lastRow As Long

lastRow = rng.Rows(rng.Rows.Count).End(xlUp).Row

rng.Cells(lastRow + 1, 1).Value = rng.Cells(lastRow, 1).Value + 1

End Sub

```

5. 关闭宏编辑器,运行宏即可。

以上就是让Excel中的凭证号自动上升的几种方法,你可以根据自己的需求选择合适的方法。

最新文章