各位老师请问如何用VBA代号运行这个完成此条件

chenyonghtc

E1条件为每次考试的提取试室（数量不是固定时多时少的）本次参考有16班级，学校提供17试室。

对考试分班接近平衡人数。
每次考试学生分班及座位号都上次不一样的。
主要每次把参考学生资料贴到参考名单中，点分班就可以在分班及座位总表查看到每个考生考场结果，再根据分班及座位总表的班级，新建一个表格命名为“各班考试分布情况”，放在D盘下。再根据班级建1至16班级的工作表（如图中的图片效果），把属于1班同学放至1工作表，属于2班同学放至2工作表，如此类推。

图片

参考名单布.rar (39.99 KB, 下载次数: 10)

2024-11-1 11:29 上传

点击文件名下载附件

清风竹-

请参考。。

chenyonghtc

清风竹- 发表于 2024-11-1 15:12
请参考。。

谢谢老师你的解答，请问后面这段要怎样写再根据分班及座位总表的班级，新建一个表格命名为“各班考试分布情况”，放在D盘下。再根据班级建1至16班级的工作表（如图中的图片效果），把属于1班同学放至1工作表，属于2班同学放至2工作表，如此类推。

chenyonghtc

清风竹- 发表于 2024-11-1 15:12
请参考。。

谢谢老师帮忙，请问后面这的要怎样写再根据分班及座位总表的班级，新建一个表格命名为“各班考试分布情况”，放在D盘下。再根据班级建1至16班级的工作表（如图中的图片效果），把属于1班同学放至1工作表，属于2班同学放至2工作表，如此类推。

longwin

附件供参考。。。。。

chenyonghtc

longwin 发表于 2024-11-1 16:36
附件供参考。。。。。

感谢老师的解答

ericxzhou

Python+Pandas:
import pandas as pd
import numpy as np

f = pd.ExcelFile('pandas exercise/sample546.xlsx')
df = f.parse('分班及座位表')

def f(total_nos, rooms):
    nos_per_room = total_nos // rooms
    standard_room = [i for i in range(1, nos_per_room + 1)]
    if total_nos % rooms == 0:
        dct = {i: standard_room for i in range(1, rooms + 1)}
    else:
        remains = total_nos % rooms
        bigger_room = standard_room + [standard_room[-1] + 1]
        dct = {i: bigger_room for i in range(1, remains + 1)}
        dct.update({i: standard_room + [np.nan] for i in range(remains + 1, rooms + 1)})
    df = pd.DataFrame(dct).stack().reset_index().drop('level_0', axis=1)
    df.columns = ['考场号', '座位号']
    df.index = pd.Series(np.random.choice(range(total_nos), total_nos, replace=False))
    return df

df1 = f(len(df), 17)
df = df.iloc[:, [0,1,2,5,6]].join(df1)
wb = pd.ExcelWriter('pandas exercise/Sample546_results.xlsx')
for name, group in df.groupby('考场号', as_index=False):
    group.to_excel(wb, str(name), index=False)
wb.close()