Re: [算表] 等差級數的向下填滿?

看板Office作者 (Trade Off)時間18年前 (2008/01/21 19:40), 編輯推噓0(000)
留言0則, 0人參與, 最新討論串3/4 (看更多)
※ 引述《ljuber (給你吃膨餅)》之銘言: : 軟體:excel : 版本:任何版本 : 我有一組發票號碼如下 : VJ18887700 : VJ18887701 : VJ18887702 : VJ18887703 : VJ18887704 : VJ18887705 : VJ18887706 : . : . : . : . : VJ18901097 : 如何快速填滿直到VJ18901097這個數字為止?? 我也是來騙P幣的 [用VBA] Sub test() Dim i as Integer For i = 1 to (18901097 - 18887700 + 1) cells(i,1) = "VJ" & (i + 18887699) Next i End Sub -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 59.112.107.32
文章代碼(AID): #17b8IfJJ (Office)
文章代碼(AID): #17b8IfJJ (Office)