用空格补齐字符串位数

兰色幻想

<br /><br /><P>A1:A10000是一列产品名称(字符串长度1-8位)</P>
<P>要求: 运行一段程序, 把A1:A10000的字符串用空格" "补齐9位. </P>
<P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 如"ABCD"&nbsp; 补充后为"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ABCD"</P>
<P>代码最简，速度最优者奖励6个金币</P>
<DIV align=right><FONT color=#000066>[此贴子已经被作者于2008-2-16 10:38:38编辑过]</FONT></DIV>

hhzjxss

<p>辛苦了，兰版！</p><p>我得先休息了，明天要上班！</p>

喵喵

Sub text()<br/>Dim arr, i&amp;<br/>Range("A1:A10000").NumberFormatLocal = "@"<br/>arr = Range("A1:A10000")<br/>For i = 1 To 10000<br/>&nbsp;&nbsp;&nbsp; arr(i, 1) = Right("&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; " &amp; arr(i, 1), 9)<br/>Next i<br/>Range("A1:A10000") = arr<br/>End Sub<br/>

兰色幻想

<div class="msgheader">QUOTE:</div><div class="msgborder"><b>以下是引用<i>喵喵</i>在2008-2-16 2:00:00的发言：</b><br/>Sub text()<br/>Dim arr, i&amp;<br/>Range("A1:A10000").NumberFormatLocal = "@"<br/>arr = Range("A1:A10000")<br/>For i = 1 To 10000<br/>&nbsp;&nbsp;&nbsp; arr(i, 1) = Right("&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; " &amp; arr(i, 1), 9)<br/>Next i<br/>Range("A1:A10000") = arr<br/>End Sub<br/></div><p>非常好</p>[em17]

杨副官

[em17]