用vba将满足条件的内容复制到另一个工作表中

枫叶飘雪 · 发表于 2023-4-18 16:28

如何用vba将“分班表”的数据学籍号和姓名按照班级分别复制到对应的班级工作表中。

班级工作表名的前三个字符和分班表的第三列相对应。

枫叶飘雪 · 发表于 2023-4-18 16:30

Sub 批量分班到对应工作表()
Dim i As Long, j As Byte
i = 2
For j = 2 To Worksheets.Count
If Left(Worksheets(j).Name, 3) = Worksheets("分班表").Cells(i, 3) Then
Worksheets("分班表").Cells(i, 1).Resize(i, 2).Copy Destination:=Worksheets(j).Range("a1048576").End(xlUp).Offset(1, 0)
i = i + 1
End If
Next
End Sub

复制代码

shiruiqiang · 发表于 2023-4-18 19:37

枫叶飘雪发表于 2023-4-18 16:30

选择模块1吧

ykcbf1100 · 发表于 2023-4-18 21:28

附件供参考。。。

枫叶飘雪 · 发表于 2023-4-19 08:26

shiruiqiang 发表于 2023-4-18 19:37
选择模块1吧

非常感谢，亲测非常nice

枫叶飘雪 · 发表于 2023-4-19 08:27

ykcbf1100 发表于 2023-4-18 21:28
附件供参考。。。

非常感谢，太强大了你们

		自动登录	找回密码
密码			免费注册

[求助] 用vba将满足条件的内容复制到另一个工作表中