VBA按座次排位(交错排座,向一侧或两侧排座,混合排座)

本文介绍了如何使用VBA在Excel中实现座位的交错、单侧以及混合排列。通过给出的代码示例,读者可以了解到如何根据不同的需求设置座位表,包括中间交错排列、左侧或右侧统一排列以及三者结合的复杂场景。
摘要由CSDN通过智能技术生成

更新:先放一段公式吧。
有一位网友问我,如果只要交错排座,不需要向两侧排,怎样方便,我觉得,直接用公式就可以完成,不需要用代码,然后我就大概写了一个文件,如下:
在sheet1中,第一列是名单,第三列是写了每行的人数,如下图:
在这里插入图片描述

在sheet2中,B2单元格,写上公式:
=IF(OR(COLUMN()<=1,COLUMN()>1+Sheet1!$C 2 ) , " " , I F ( ( C O L U M N ( ) − 1 ) > = ( S h e e t 1 ! 2),"",IF((COLUMN()-1)>=(Sheet1! 2),"",IF((COLUMN()1)>=(Sheet1!CKaTeX parse error: Expected 'EOF', got '&' at position 27: …RECT("SHEET1!R"&̲(ROW()-2)*Sheet…C 2 + ( C O L U M N ( ) − 1 − ( S h e e t 1 ! 2+(COLUMN()-1-(Sheet1! 2+(COLUMN()1(Sheet1!CKaTeX parse error: Expected 'EOF', got '&' at position 12: 2+1)/2)*2+2&̲"C1",FALSE),IND…C 2 + ( ( S h e e t 1 ! 2+((Sheet1! 2+((She

  • 0
    点赞
  • 2
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值