跳到主要内容

如何在Excel中用字母字母对单元格编号?

在Excel中,我们可以使用自动填充手柄为具有数字序列(例如1、2、3…)的单元格编号,但是如何为带有字母A,B,C…的单元格编号呢? 在本教程中,我介绍了一些在Excel中处理此工作的方法。

用公式字母字母对单元格编号

用VBA代码用字母字母对单元格编号

使用 Kutools for Excel 对单元格进行编号好主意3


在奔跑中插入多个项目符号或编号ge

在Excel中,您需要插入项目符号或一一编号,但是使用此便捷工具, Kutools for Excel's 插入项目符号插入编号 实用程序,您可以快速插入项目符号或编号
一次到选定的单元格。  点击免费试用60天!
doc插入项目符号编号
 
Kutools for Excel:拥有200多个便捷的Excel加载项,可以在60天内免费试用。

用公式字母字母对单元格编号

1.在要编号的单元格旁边的列表中,键入要用于对单元格编号的所有字母。
带字母1的doc编号

如果你有 Kutools for Excel是, 填写自定义列表 实用程序支持您从一个范围中创建一个列表,然后您可以在需要的任何位置插入新列表,而无需一次又一次地键入它们。  点击免费试用60天!
带字母2的doc编号

2.选择一个与您要编号的字母和单元格内容相邻的单元格,键入此公式 = A1&“。”&B1,向下拖动填充手柄以将公式填充到所需的所有单元格中。
带字母3的doc编号


用VBA代码用字母字母对单元格编号

如果您熟悉宏代码,则可以执行以下操作:

1。 按 Alt + F11键 启用键 Microsoft Visual Basic应用程序 窗口。 点击 插页 > 模块.

2.复制以下代码并将其粘贴到 模块 脚本。

VBA:用A编号

Sub Prefix_A()
'UpdatebyExtendoffice20180828
Dim xRg As Range
Dim xStrPrefix As String
xStrPrefix = "A."
On Error Resume Next
Application.ScreenUpdating = False
For Each xRg In Selection
    If xRg.Value <> "" Then
        xRg.Value = xStrPrefix & xRg.Value
    End If
Next
Application.ScreenUpdating = True
End Sub

3.然后重复粘贴代码,并根据需要将A更改为B或C或D。
带字母4的doc编号

4.保存代码并关闭 Microsoft Visual Basic应用程序 窗口。

5.选择要用A编号的单元格,然后单击 开发商 > .
带字母5的doc编号

6。 在 对话框中,选择代码 前缀_A 并点击 运行.
带字母6的doc编号

7.选择项已用A编号。
带字母7的doc编号

8.重复第5步和第6步,根据需要用特定字母对单元格编号。


使用 Kutools for Excel 对单元格进行编号

如果您有 Kutools for Excel,您可以快速对单元格进行编号。

Kutools for Excel, 与超过 200 方便的功能,使您的工作更加轻松。 

安装后 Kutools for Excel,请执行以下操作:(立即免费下载Kutools for Excel!)

选择要编号的单元格,然后单击 库工具 > 插页 > 插入编号,选择您需要的一种类型。
带字母8的doc编号

然后,单元已添加编号。
带字母9的doc编号

分页浏览和编辑多个Excel工作簿/ Word文档,例如Firefox,Chrome,Internet Explore 10!

您可能熟悉在 Firefox/Chrome/IE 中查看多个网页,并通过单击相应的选项卡轻松在它们之间切换。在这里,Office Tab 支持类似的处理,允许您在一个 Excel 窗口或 Word 窗口中浏览多个 Excel 工作簿或 Word 文档,并通过单击选项卡轻松在它们之间切换。 免费点击 30Office Tab 试用一天!

优秀

最佳办公生产力工具

🤖 Kutools 人工智能助手:基于以下内容彻底改变数据分析: 智能执行   |  生成代码  |  创建自定义公式  |  分析数据并生成图表  |  调用 Kutools 函数...
热门特色: 查找、突出显示或识别重复项   |  删除空白行   |  合并列或单元格而不丢失数据   |   不使用公式进行四舍五入 ...
超级查询: 多条件VLookup    多值VLookup  |   跨多个工作表的 VLookup   |   模糊查询 ....
高级下拉列表: 快速创建下拉列表   |  依赖下拉列表   |  多选下拉列表 ....
列管理器: 添加特定数量的列  |  移动列  |  切换隐藏列的可见性状态  |  比较范围和列 ...
特色功能: 网格焦点   |  设计图   |   大方程式酒吧    工作簿和工作表管理器   |  资源库 (自动文本)   |  日期选择器   |  合并工作表   |  加密/解密单元格    按列表发送电子邮件   |  超级筛选   |   特殊过滤器 (过滤粗体/斜体/删除线...)...
前 15 个工具集12 文本 工具 (添加文本, 删除字符,...)   |   50+ 图表 类型 (甘特图,...)   |   40+ 实用 公式 (根据生日计算年龄,...)   |   19 插入 工具 (插入二维码, 从路径插入图片,...)   |   12 转化 工具 (小写金额转大写, 货币兑换,...)   |   7 合并与拆分 工具 (高级组合行, 分裂细胞,...)   |   ... 和更多

使用 Kutools for Excel 增强您的 Excel 技能,体验前所未有的效率。 Kutools for Excel 提供了 300 多种高级功能来提高生产力并节省时间。  单击此处获取您最需要的功能...

产品描述


Office Tab 为 Office 带来选项卡式界面,让您的工作更加轻松

  • 在Word,Excel,PowerPoint中启用选项卡式编辑和阅读,发布者,Access,Visio和Project。
  • 在同一窗口的新选项卡中而不是在新窗口中打开并创建多个文档。
  • 每天将您的工作效率提高50%,并减少数百次鼠标单击!
Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Sub Alphabetic_Numbering()
Dim InputRng As Range, Start As Integer, Cell As Range, Start1 As Integer, Rowsx As Integer, Double_Start As Integer
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range", xTitleId, InputRng.Address, Type:=8)

Start = 65
Rowsx = InputRng.Rows.Count


For i = 1 To Rowsx
If i < 27 Then
InputRng.Cells(i, 1).Value = Chr(Start) & ". " & InputRng.Cells(i, 1).Value
Start = Start + 1
End If

roundupUnitcount = Application.WorksheetFunction.RoundUp(i / 26, 0) - 1
If Start > 90 Then
Start = Start - 26
End If
Double_Start = 64 + roundupUnitcount
If i > 26 Then
InputRng.Cells(i, 1).Value = Chr(Double_Start) & Chr(Start) & ". " & InputRng.Cells(i, 1).Value
InputRng.Cells(i, 2).Value = Start
Start = Start + 1
End If
Next i
End Sub
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations