如何用Excel编写VB程序

Const？C2？=?15?不连续数字调整值

Const？s？=?10?设置连续范围

Sub？流程()

暗淡？一、？我！,?j！,?d！,?n

范围(" A1 ")。排序？key1:=Range("A1 ")，？订单1:=xlAscending

答？=?工作表功能。转置(Range("A1:A "？& amp？[A65536]。结束(xlUp)。行))

为了什么？我？=?1?去哪？未绑定(a)

d？=?甲(我)？+?S

为了什么？j？=?我？去哪？未绑定(a)

如果？j？+?1?& gt？UBound(a)？然后呢？退出？为

如果？a(j？+?1)?& gt？d？然后呢？退出？为

然后

如果？我？=?j？然后呢？不连续数字

甲(我)？=?甲(我)？-?C2

不然呢？连续数

n？=?甲(我)？-?C1

为了什么？k？=?我？去哪？j

a(k)？=?n

然后

我？=?j

结束？如果

然后

范围(" B1 ")。调整大小(UBound(a))？=?工作表功能。转置

结束？子效果如图，附件参考可以下载。