ARTICLE · 1219427

Excel 批量给每个 Sheet 固定单元格自动编号001#、002# 顺序编号

发布时间：2026-10-21 00:39:11 最近访问：2026-10-21 00:39:14

2026年10月20日星期二阴天☁️｜丙午年戊戌月甲子日

哈喽，你好👋

欢迎来到「搬砖时光日记」。

每个工作表同一个固定单元格，按顺序生成带前缀后缀的编号。举个例子：Sheet1 的 A1=001#，Sheet2 的 A1=002#，Sheet3 的 A1=003#……一直往后排。

VBA 批量生成编号（大量工作表，推荐）

Alt+F11打开 VBA 编辑器，插入【模块】；
粘贴下面代码；

Sub SheetCellAdd_00x()    Dim sht As Worksheet    Dim num As Integer    num = 1    For Each sht In Sheets        sht.Range("A1").Value = Format(num, "000") & "#"        num = num + 1    Next shtEnd Sub

3、按 F5 运行。

提醒：操作前务必备份原文件！

仅选中的工作表生成编号（按住 Ctrl 多选 sheet 再运行）

Sub SelectSheet_00x()    Dim sht As Worksheet    Dim num As Integer    num = 1    For Each sht In ActiveWindow.SelectedSheets        sht.Range("A1").Value = Format(num, "000") & "#"        num = num + 1    Next shtEnd Sub

跳过隐藏工作表，只处理可见工作表

Sub VisibleSheet_00x()    Dim sht As Worksheet    Dim num As Integer    num = 1    For Each sht In Sheets        If sht.Visible = xlSheetVisible Then            sht.Range("A1").Value = Format(num, "000") & "#"            num = num + 1        End If    Next shtEnd Sub

修改小提示：

更换单元格：把 Range("A1") 改成 Range("B3")

改变位数：Format(num,"000") 是 3 位（001）；改成"00"就是 2 位（01#）

修改后缀：&"#" 可以改成 &"-A"、&"号" 等

起始编号：修改 num = 1，改成 num=10 就从 010#开始

VBA 批量生成编号（大量工作表，推荐）

仅选中的工作表生成编号（按住 Ctrl 多选 sheet 再运行）

跳过隐藏工作表，只处理可见工作表

相关学习资料