excel表中，如何将001...统一改成0001...

你能不能说清楚些，你的整个序列是有单引号开头的和双引号括起来的是吗？这样可以用宏来解决的，如果你是单引开头的可以用下面的代码：
Sub 序列号扩充()
Dim k As Integer
MsgBox "请定位到序列号所在的列!!!!"
k = ActiveSheet.UsedRange.Rows.Count
co = Selection.Column
For i = 1 To k
Cells(i, co) = "'" & Format(Cells(i, co), "0000")
Next i
End Sub
如果是双引号将序列号括起来的(即"001")那么就用下面代码：
Sub 序列号扩充()
Dim k As Integer
MsgBox "请定位到序列号所在的列!!!!"
k = ActiveSheet.UsedRange.Rows.Count
co = Selection.Column
For i = 1 To k
Cells(i, co) = "'" & Format(Mid(Cells(i, co), 2, Len(Cells(i, co) )- 2), "0000")
Next i
End Sub
注意：注意：在运行代码前，先定位到序列号那一列的任何单元格内，就可以了。

可通过“设置单元格格式”的办法实现。
具体设置方法：
1、选中所有数据单元格，在选中的单元格上点鼠标右键——“设置单元格格式”；如图
2、点“数字”标签——“自定义”，在“类型”中输入000；如图
3、结果，如图