作者Lazulite (Trade Off)
看板Office
标题Re: [算表] 将数字分隔?
时间Tue Jan 22 20:18:32 2008
※ 引述《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
1F：→ ljuber:强~我也快要去学VBA了说XD 01/22 20:20