如何编写运动会蛇形排列的EXCEL VBA代码？

为了美观，设计了简单的格式，小组从五行开始。

暗淡？startLine？作为？整数

startLine？=?五

给sheet1一个别名，用于编码。

暗淡？sT？作为？工作表

设置？sT？=?纸张(“纸张1”)

读入人数和组数。

暗淡？团队？人？作为？整数

团队？=?圣细胞(1，2).价值

人？=?圣细胞(2，2).价值

为了什么？我？=?startLine？去哪？startLine？+?团队？-?1

写下团队的名字

圣细胞(我，1).价值？=?“团队？”？& amp？Str(我？-?startLine？+?1)

下一个？我

Flag用来生成一个蛇形，从上到下等于一；等于负一，反之亦然。

暗淡？旗帜？作为？整数

旗帜？=?1

这是控制条的参数。

暗淡？currentCol？作为？整数

currentCol？=?2

这是人事编号。在Do循环中，一次添加一个。

暗淡？currentPerson？作为？整数

currentPerson？=?1

这是每次填充数字时for循环的开始和结束值。

暗淡？s，？e？作为？整数

做

如果？旗帜？=?1?然后

s？=?1

e？=?组

其他

s？=?组

e？=?1

结束？如果

开始填写数字

为了什么？j？=?s？去哪？e？一步？旗

圣细胞(startLine？+?j？-?1,?currentCol)。价值？=?当前人员

currentPerson？=?currentPerson？+?1

下一个？j

填写完一列后，调整变量值。

currentCol？=?currentCol？+?1

旗帜？=?(-1)?*?旗

如果？currentPerson？& gt？人？然后呢？退出？潜水艇

环

结束？潜水艇