Excel工作薄中各个工作表内同一位置格子内能否自动编序号

来源：百度知道 编辑：UC知道 时间：2024/05/21 12:35:38
Sheet1 Sheet2 Sheet3......每个工作表内第一格（A1单元格）是否可以自动编序号（如YYYB01、YYYB02、YYYB03......）如果行，请问怎么操作？

如果你有50个工作表,sheet1 sheet2... sheet50
写入如下宏
Sub zhidongbianhao()
Dim i As Integer
For i = 1 To 3
Sheets(i).Range("a1") = "YYYB" & Right("00" & i, 2)
Next i
End Sub
如果还有疑问，Hi我~

你需要给他规则。他就可以。

只要在列里如，A1里输入YYYB01，A2里输入YYYB02，选中A1,A2,然后向下用复制拖动的办法复制。

选定一个工作的目标单元格，再连选其他工作表按F2，把下面的公式贴进去后按下CTRL+ENTER

="YYYB0"&right(cell("FILENAME",a1),len(cell("FILENAME",a1))-5)

上面方法的前提是你的工作表名依次为：Sheet1 Sheet2 Sheet3......