ExcelVBA拆分数据至多张工作表。在如蛴蛩钔淞下的示例数据表中,分别把相应的数据拆分至以班级命名的多张工作表中。
工具/原料
电脑
2019Excel
方法/步骤
1、打开VisualBasic,添加模块或过程,称之为“拆分数据”。
2、添加一个for循环,循环“班级”这列中的每个单元格,找到对应的班级。
3、添加一个if判断,如果B列中单元格的班级名称信息与工作表荏半吨蛸名称相同,则将该单元格的整行数据复制到对应的工作表。以“A班”为例:
4、定义一个变量k,计算各班级工作表中已有数据的行数,用于将复制过来的数据粘贴至k+1这一空白行。
5、在if判断中更换变量i和k,先将A班的数据复制过来测试一下。
6、再定义一个变量j,把每张工作表都循环,套在之前的循环外面。
7、执行以上代码后,即可将数据分别粘贴到各班级的工作表中。
8、如果要清空各班级工作表的数据,可以通过下面的过程来实现: