答案1
改编自这里
此公式将一直作用到满足您的要求的 VH-AZZ,增加下一个字母会稍微耗费一些时间,它假定 VH-AAA 在 A1 中。
="VH-A"&IF(RIGHT(A1,1)<>"Z",MID(A1,5,1)&CHAR(CODE(RIGHT(A1,1))+1),CHAR(CODE(MID(A1,5,1))+1)&"A")
答案2
UDF(用户定义函数)和辅助数据的组合解决了该问题:
怎么运行的:
- 要打开 VB 编辑器,请按
Alt+F11
。 - 从我插入 TAB 键米模块。
C奥皮&磷粘贴此代码。
Function ColLtrs(i As Long) As String ColLtrs = Replace(Cells(1, i).Address(False, False), "1", "") End Function
按Alt+Q返回工作表并年代将工作簿作为米启用 acro。
- 对于辅助数据,请输入
A
单元格O36
。 - 单元格中的公式
O37
:
=IF(ROW(A1)<=70,ColLtrs(ROW(A2)),"")
- 将其填满。
<=70
在接下来的 70 行中生成字母,您可以对其进行编辑<=178
。VH-AAA
在单元格中写入P36
- 单元格中的公式
P37
:
=LEFT(P$36,5)&O37
- 将其填满。
- 此处
5
可编辑。
您可以根据需要调整增量。