Re: [算表] 如何利用excel下拉6、2、6的數值？

看板Office作者windknife18 (windknife18)時間15年前 (2010/10/25 00:51)推噓0(0推 0噓 0→)

留言0則, 0人參與討論串3/4 (看更多)

這種不確定次數變化的問題，我想 VBA 是比較適合的囉程式碼如下，懶得用陣列囉 .... 可以參考 http://tinyurl.com/2c9vn2a Dim f6c As Integer Dim f2c As Integer Dim e6c As Integer Dim e2c As Integer Dim startNo As Integer Dim index As Integer Dim i As Integer Dim j As Integer f6c = 4 '第一個6出現的次數 f2c = 6 '第一個2出現的次數 e6c = 3 '第二個6出現的次數 e2c = 2 '第二個2出現的次數 index = 1 startNo = 1 '起始的數字 Application.ScreenUpdating = False For i = 1 To f6c For j = 1 To 6 Cells(index, 1).Value = startNo index = index + 1 Next j startNo = startNo + 1 Next i For i = 1 To f2c For j = 1 To 2 Cells(index, 1).Value = startNo index = index + 1 Next j startNo = startNo + 1 Next i For i = 1 To e6c For j = 1 To 6 Cells(index, 1).Value = startNo index = index + 1 Next j startNo = startNo + 1 Next i For i = 1 To e2c For j = 1 To 2 Cells(index, 1).Value = startNo index = index + 1 Next j startNo = startNo + 1 Next i Cells(1, 1).Select Application.ScreenUpdating = True MsgBox ("完成") ※ 引述《Jerry1112 (執著~)》之銘言： : ※ 引述《Jerry1112 (執著~)》之銘言： : : 軟體: excel : : 版本: 2003 : : 類似http://tw.knowledge.yahoo.com/question/question?qid=1610101305978 : : 的問題 : : 檔案內容是 : : 111111 222222 333333 444444 555555 66 77 88 99 10 10 11 11 : : 12 12 12 12 12 12 13 13 13 13 13 13 14 14 15 15 16 16 : : (以 : : 如何在=INT((ROW()+5)/6)下拉完後 : : 接著n次２位數之後下６位數， : : ６位數的值可以跟２位數的連接起來... : : 範列如載點左邊列，而不會變成右邊列... : : http://filedeck.net/zh-tw/files/1DTZKSWY/6.2.xls : : 檔案"起始值"非1，是5位數，例69991的話，公式為何？ : : 補充若2、5同一個檔案的話，公式為何，下拉數字需為順號？ : : 若不懂我的意思，在詳補檔案說明... : 都沒有人會哦？這下工作可苦了... -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 122.116.146.144