作者Lazulite (Trade Off)
看板Office
標題Re: [算表] 等差級數的向下填滿?
時間Mon Jan 21 19:40:24 2008
※ 引述《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