妖题系列——EXCEL小问题-100726-数字中间加空格

pureshadow

这个……有点花哨，如图：数字间的空格随着位数的增加而递减。

用一个公式完成。

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

复制代码

tmtony

这个用代码我就会 用公式, 还要学

pureshadow

那你来个代码版，偶也学习学习。

FookYou

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

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)  这一串不知道对不对。也许间距收敛的效果不一致。

轻风

妖人出妖题

8391475

我要学习一下

rockroll1234

xuexi