vba怎么把带英文的编号自增

vba把带英文的编号自增通过使用excle自带的工具栏图标填充。使用excle自带的工具栏图标填充，利用代码Sub自动填充序号，用代表容器应用程序中的一个命令栏和另外代表一个命令栏控件清除所有单元格。

简单的说就是 点 大项，在A列非空，依次写A或B。。。C...D

小项 就是 数字 递增，根据前面的

A列先输入 A

Sub 大项()

Dim i

For i = Range("A65536").End(xlUp).Row To 1 Step -1

x = Asc(Cells(i, 1))

If (x >= 65 And x <= 90) Then

n = Range("A65536").End(xlUp).Row

Cells(n + 1, "A") = Chr(1 + x)

Exit Sub

End If

Next

End Sub

Sub 小项()

Dim n

n = Range("A65536").End(xlUp).Row

x = Asc(Cells(n, 1))

If (x >= 65 And x <= 90) Then

Cells(n + 1, "A") = 1

Else

Cells(n + 1, 1) = Cells(n, 1) + 1

End If

End Sub

excel自动填充序列号方法：

1、打开EXCLE表格，在单元格输入序号1。

2、在开始选项，点击填充，选择序列。

3、d出提示框，选择行或列，以列为例，输入步长值和终止值，点击确定。

4、完成后，可以看到自动填充序列号。

excel简介：

Microsoft Excel是微软公司的办公软件Microsoft office的组件之一，是由Microsoft为Windows和Apple Macintosh *** 作系统的电脑而编写和运行的一款试算表软件。

Excel是微软办公套装软件的一个重要的组成部分，它可以进行各种数据的处理、统计分析和辅助决策 *** 作，广泛地应用于管理、统计财经、金融等众多领域。

Excel的一般用途包括：会计专用、预算、帐单和销售、报表、计划跟踪、使用日历等

Excel中大量的公式函数可以应用选择，使用Microsoft Excel可以执行计算，分析信息并管理电子表格或网页中的数据信息列表与数据资料图表制作，可以实现许多方便的功能，带给使用者方便。

与其配套组合的有：Word、PowerPoint、Access、InfoPath及Outlook,Publisher

Excel2013、2010、2007和老一点的Excel2003较为多见，Excel2002版本用的不是很多。比Excel2000老的版本很少见了。最新的版本增添了许多功能。使Excel功能更为强大。

Excel2003支持VBA编程，VBA是Visual Basic For Application的简写形式。VBA的使用可以达成执行特定功能或是重复性高的 *** 作。

---