PTT數位生活區 / Office

Re: [算表] 將數字分隔?

看板Office作者 (Trade Off)時間18年前 (2008/01/22 20:18), 編輯推噓0(0推 0噓 1→)
留言1則, 1人參與, 最新討論串4/7 (看更多)
※ 引述《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
強~我也快要去學VBA了說XD
01/22 20:20, 1F
‣ 更多 Lazulite 的文章
文章代碼(AID): #17bTyPG8 (Office)
討論串 (同標題文章)
本文引述了以下文章的的內容：
以下文章回應了本文：
完整討論串 (本文為第 4 之 7 篇)：
排序： 最新先 | 最舊先 | 留言數
在新視窗開啟完整討論串 (共7篇)
Office 近期熱門文章
更多 近期熱門文章 >>
PTT數位生活區 即時熱門文章
更多 即時熱門文章 >>
‣ 更多 Lazulite 的文章
文章代碼(AID): #17bTyPG8 (Office)