This topic has been archived. It cannot be replied.
-
工作学习 / 学科技术讨论 / Excel question有一ID column, 其值为1，2，3，。。。 请问这样把这ID变成001，002，003，。。。，即变成text or string。我用这段macro，结果没变，还是1，2，3. 请能人斧正。谢谢。
Sub try()
For Number = 2 To 180
If Len(ActiveSheet.Cells(Number, 1)) < 3 Then
ActiveSheet.Cells(Number, 8) = Right("000" + ActiveSheet.Cells(Number, 1), 3)
End If
Next Number
End Sub
-xxu99(金秋来了);
2010-3-19
{364}
(#5955931@0)
-
Why do you want to use macro to do something so easy? Just use a formula will do the trick.
-jeffrey815(Smartiecat);
2010-3-19
(#5955944@0)
-
How?
-xxu99(金秋来了);
2010-3-19
(#5955954@0)
-
假设A1=1, A2为0001的目标单元格，A2="000"&a1
-up2you(16777216 鑫森淼焱垚);
2010-3-19
(#5956056@0)
-
Hi, 原来该用&呀。谢谢了。
-xxu99(金秋来了);
2010-3-19
(#5956419@0)
-
你先把你放ID的那一列和目标列（第八列）format成TEXT，你macro里的+ 要改成&就可以了Sub try()
For Number = 2 To 180
If Len(ActiveSheet.Cells(Number, 1)) < 3 Then
ActiveSheet.Cells(Number, 8) = Right("000" & ActiveSheet.Cells(Number, 1), 3)
End If
Next Number
End Sub
-cher(歇了);
2010-3-19
{226}
(#5956114@0)
-
+和&结果大不相同。谢谢了。
-xxu99(金秋来了);
2010-3-19
(#5956425@0)
-
干吗非得用macro? 在第一行输入'001，然后将鼠标移动到右下角直接拖动到你想要的任意值...
-renjl0810(相信网络,相信Google);
2010-3-19
(#5956187@0)
-
准确地说，是将鼠标移动到右下角等鼠标形状变成实心的十字架直接拖动到你想要的任意值.
好奇的问一句，楼上的是不是都是作Accounting或MBA啊？看来这学Excel的还真是不如教Excel的，我可是原来在学校里靠给大一新生教Win98, Word, Excel, Powerpoint混饭吃的专业人士:-)...
-renjl0810(相信网络,相信Google);
2010-3-19
(#5956238@0)
-
请问一下，如果在A1输入001，可拉右下角时，还是会自动改成1啊？
-calumet(大狗和小狗一起跑);
2010-3-19
(#5956297@0)
-
请注意老师的板书，咳，咳，咳，对不起，是看贴要仔细，是'001 not 001 - 001之前还有一个‘，也就是强制输入内容为string or text
-renjl0810(相信网络,相信Google);
2010-3-19
(#5956313@0)
-
嗯～谢谢老师提醒～
-calumet(大狗和小狗一起跑);
2010-3-19
(#5956329@0)
-
以前处理过有‘001的file, 但今天才搞清楚那一飘的意思，谢谢了
-xxu99(金秋来了);
2010-3-20
(#5956495@0)
-
这个是excel里最基本的功能，根本不用任何的macro或者fomula。选中这一列，然后点右键选择单元格属性，在数字属性里，选择自定义，然后自定义格式为000，出来的结果就是001,002, 003。
-yangapple(yangapple);
2010-3-20
(#5956588@0)
-
数据类型是不一样的，一个是Number，一个是Text
-urmylove(麻袋);
2010-3-20
(#5956598@0)
-
E文的“自定义”是什么？
-xxu99(金秋来了);
2010-3-20
(#5956755@0)
-
customize ??
-urmylove(麻袋);
2010-3-21
(#5957956@0)