如何在Excel中自动增加一个字母以获得下一个字母？

如何在Excel中自动增加一个字母以获得下一个字母？

假设您有一个包含字母AB的单元格，则需要将最后一个字母加XNUMX，以获取下一个字母AC，AD…，依此类推。 或者，您有一个字母A，并且想要将该字母增加到B，C…以创建一个字母列表。 如何实现呢？ 本文可以为您提供详细信息。

用公式将字母AB加XNUMX以得到AC，AD…

将字母增加一个以获取具有公式的字母列表

使用用户定义的功能将字母增加XNUMX以获取字母列表 用公式将字母AB加XNUMX以得到AC，AD…

请按照以下步骤在Excel中将字母增加XNUMX。

1.在给定字母下方选择一个空白单元格，在其中输入以下公式，然后按 输入 键。 

=IF(RIGHT($A2,1)="Z", CHAR(CODE(LEFT(A2,1))+1),LEFT(A2,1))&CHAR(65+MOD(CODE(RIGHT(A2,1))+1-65,26))

备注：在公式中，A2是包含给定字母的单元格。

2.继续选择A3，向下拖动“填充手柄”以获取所需字母的列表。

将字母A加XNUMX以获取具有公式的字母列表

您可以使用 = CHAR（CODE（A1）+1） 在Excel中将字母加XNUMX的公式。 请执行以下操作。

1.在给定字母下方选择一个空白单元格，输入公式 = CHAR（CODE（A2）+1） 进入编辑栏，然后按 输入 键。 看截图：

2.选择结果单元格，向下拖动“填充手柄”以获取所需的字母。

备注：使用此公式，得到字母Z后，如果继续向下拖动Fill Handle，将会得到一些特殊字符，如下图所示。 如果要在Z后面获得字母AA，可以使用以下用户定义的函数来帮助您。

使用用户定义的功能将字母增加XNUMX以获取字母列表

以下用户定义的函数还可以帮助您在Excel中将字母增加XNUMX。

1。 按 其他 + F11 同时打开 Microsoft Visual Basic应用程序 窗口。

2.在 Microsoft Visual Basic应用程序 窗口中，单击 插页 > 模块。 然后将以下VBA代码复制并粘贴到 模块 窗口。

VBA代码：将字母增加一个以获取字母列表

Function ColLtrs(i As Long) As String ColLtrs = Replace(Cells(1, i).Address(False, False), "1", "") End Function

3。 按 其他 + Q 关闭键 Microsoft Visual Basic应用程序 窗口。

4.在给定字母下方选择一个空白单元格，输入公式 = ColLtrs（ROW（）），然后按 输入 获得第二个字母的钥匙。

2.选择结果单元格，向下拖动“填充手柄”以获取所需的字母。

备注：使用此方法，您增加的字母基于行号。 您需要在工作表的第一行中开始第一个字母A，否则，该字母将变得混乱。