→ ljuber:強~我也快要去學VBA了說XD 01/22 20:20
※ 引述《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