[求助] VBA怎样根据总表中数据按类别筛选数据到相应表中？

my3022 · 发表于 2024-3-28 10:55

ykcbf1100 发表于 2024-3-28 09:48
上传附件。。。

已上传，请帮处理下

ykcbf1100 · 发表于 2024-3-28 11:03

my3022 发表于 2024-3-28 10:55
已上传，请帮处理下

先解决第一个问题。

ykcbf1100 · 发表于 2024-3-28 11:07

二个问题一起解决。

my3022 · 发表于 2024-3-28 11:26

ykcbf1100 发表于 2024-3-28 11:07
二个问题一起解决。

谢谢大佬了

jjmysjg · 发表于 2024-3-28 13:26

VBA无所不能，高手无处不在

my3022 · 发表于 2024-3-29 08:29

ykcbf1100 发表于 2024-3-28 11:07
二个问题一起解决。

大佬，还有一个问题想请教，如果在我发的《按年级和班级拆分》表中，只需要提取一类数据生成新表要怎么搞，如只提取一年级的学生生成一年级花名册（不需要四年级和六年级）要怎么修改代码

ykcbf1100 · 发表于 2024-3-29 09:03

my3022 发表于 2024-3-29 08:29
大佬，还有一个问题想请教，如果在我发的《按年级和班级拆分》表中，只需要提取一类数据生成新表要怎么搞 ...

那要加个条件了。怎么让代码知道只提取一年级呢？

my3022 · 发表于 2024-3-29 10:06

本帖最后由 my3022 于 2024-3-29 10:32 编辑

ykcbf1100 发表于 2024-3-29 09:03
那要加个条件了。怎么让代码知道只提取一年级呢？

$O_7)P`NAI_N$KQBU`{O8NQ3.png$ $$[0)0H)AZKB8~]}(ZE}F8Y.png

我从总表中按年级筛选出一年级然后把数据粘贴“一年级花名册”的表中，但是没有标题栏，需要修改哪里，我用的代码如下，请大佬指点一下
Sub ykcbf()

Dim ws1 As Worksheet

Dim ws2 As Worksheet

Dim rng1 As Range

Dim rng2 As Range

'定义工作表

Set ws1 = ThisWorkbook.Worksheets("总表")

Set ws2 = ThisWorkbook.Worksheets("一年级花名册")

'筛选数据

ws1.Range("A1:R20").AutoFilter Field:=7, Criteria1:="一年级"

'复制数据

Set rng1 = ws1.Range("A1:R20").SpecialCells(xlCellTypeVisible)

rng1.Copy

'粘贴数据

Set rng2 = ws2.Range("A1")

rng2.PasteSpecial

'取消筛选

ws1.Range("A1:R20").AutoFilter

End Sub

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

[求助] [求助] VBA怎样根据总表中数据按类别筛选数据到相应表中？