Office中国论坛/Access中国论坛

标题: 妖题系列——EXCEL小问题-100726-数字中间加空格 [打印本页]

作者: pureshadow 时间: 2010-7-26 14:24
标题: 妖题系列——EXCEL小问题-100726-数字中间加空格
这个……有点花哨，如图：数字间的空格随着位数的增加而递减。
[attach]42844[/attach]
用一个公式完成。

=TEXT(A1,REPT("0"&REPT(" ",15-ROW(A1)),LEN(A1)))下拉

复制代码

作者: tmtony 时间: 2010-7-26 16:28
这个用代码我就会

用公式, 还要学

作者: pureshadow 时间: 2010-7-26 17:26
那你来个代码版，偶也学习学习。

作者: FookYou 时间: 2010-7-26 18:20
[attach]42856[/attach]
Sub aa()
  Dim Arr, i#, j%,k#, S$
  Dim By() As String
k = [a65536].End(xlUp).Row
ReDim By(1 To k)
Arr = Range("A1:A" & k)
By(k) = Arr(k, 1)
For i = k - 1 To 1 Step -1
   S = S & " "
   For j = 1 To Len(Arr(i, 1))
      By(i) = By(i) & S & Mid(Arr(i, 1), j, 1)
   Next
   By(i) = LTrim(By(i))
Next
[B1].Resize(k, 1) = Application.Transpose(By)
End Sub

作者: todaynew 时间: 2010-8-2 17:25
本帖最后由 todaynew 于 2010-8-2 17:37 编辑

function Str(sVal as string) as string
dim i as long
str=mid(sVal,1,1)
for i=2 to len(sVal)
str=str & Space(int(Len(A1)*(15-i)/5)) & mid(sVal,i,1)
next
end function

int(Len(A1)*(15-i)/5) 这一串不知道对不对。也许间距收敛的效果不一致。

作者: 轻风 时间: 2010-8-16 13:33
妖人出妖题

作者: 8391475 时间: 2010-12-23 11:11
我要学习一下

作者: rockroll1234 时间: 2011-3-15 23:55
xuexi

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)