excel问题，最简便的方法？

来源：百度知道 编辑：UC知道 时间：2024/09/24 22:12:03
做200个工牌，从0001开始，要求：
1、所有带4的数字去掉不要；
2、一共200个工牌，最后的数字会达到0200以上，例如第200个工牌的数
字号是0252；
怎样用excel最快的做出这200个数字。
都回答这的么好，我把分给谁呢？！

A1 输入 '0001(前面加单引号让格式变为文本)
选好A1拖放复制到0300

全选A1:A300
"编辑"-"替换",要替换的值为4,把它替换成10000

全选排序,按从小到大的方式,选"将任何类似数字的内容排序"

再把201行以后的删除掉

按下ALT+F11,菜单:插入-模块,复制下面代码.按下F5,200个号码会排在A1:A200

Sub number()
Dim n As Integer
Dim x As Integer
Range("a1").Select
n = 1
x = 1
Do While x <= 200
Do While InStr(1, n, 4) > 0
n = n + 1
Loop
ActiveCell.NumberFormatLocal = "0000"
ActiveCell.Value = n
n = n + 1
x = x + 1
ActiveCell.Offset(1, 0).Select
Loop
End Sub

********
其中X为号码个数,你可以修改.N=1是号码的初始值,你也可以修改.RANGE("A1")是在EXCEL中初如位置,你了可以修改.

若工号从A3开始:
在A3输入以下式子:
=TEXT(IF(ISNUMBER(--A1),(MOD((A1+1),10)=4)+A1+1,1),"0000")
下拉
若公式中间插入有空行或工号列出现非工号的文字
工号将再0001开始
(请不要在中间插入行)

当然给我啦
首先,我的是用函数完成,公式简单
再则,如果用宏或者VBA的话,需要设置EXCEL的安全性,且部分杀毒软件,可以把宏给杀除掉