Re: [算表] 將數字分隔?
※ 引述《xdtg (自由魔法)》之銘言:
: A
: 1 1234
: 2 1111
: 3 10000
: Sheet2
: A B C D E F G
: 1 7 6 5 4 3 2 1
: 2
: A2=RIGHT(IF(INT(Sheet1!$A1/10^(A$1-1))=0,"",INT(Sheet1!$A1/10^(A$1-1))))
: 其餘類推
可以試試VBA
Sub test()
For j = 1 To WorksheetFunction.CountA(Sheets("sheet1").Range("A:A"))
For i = 1 To Len(Sheets("Sheet1").Cells(j, 1))
Sheets("sheet2").Cells(j, i) = Mid(Sheets("Sheet1").Cells(j, 1), i, 1)
Next i
Next j
End Sub
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 59.112.107.203
→
01/22 20:20, , 1F
01/22 20:20, 1F
討論串 (同標題文章)
本文引述了以下文章的的內容:
算表
1
2
以下文章回應了本文:
算表
1
1
完整討論串 (本文為第 4 之 7 篇):
算表
0
5
算表
1
1
算表
1
2
算表
0
1
算表
1
3
算表
1
1