作者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