VBA 筛选符合条件的数据并复制粘贴到其他工作簿

wclle

我有2张excel表，一张是“数据”-里面含有各种基础数据。另一张是“Daily report"-需要每天复制粘贴”数据“里面相关内容到”Daily report"里面发出去。

求教各位大神，有什么VBA代码做到以下需求：

1. 筛选出“数据” A列不同的类型，比如标题1 是A的内容，然后复制A2-J2的内容，粘贴到“Daily report"对应工作簿”A“的A-J列。
2. 然后重复步骤1， 直到把”数据“里面标题1的B,C,D,E的内容筛选出来复制粘贴到”daily report“对应的B, C, D, E工作簿。
3. 完成上述所有步骤后，保存”daily report"到指定文件夹比如D盘。

Peny2020

Sub test()

Dim i As Integer
myName = ActiveWorkbook.Name

Set wk = Workbooks.Open(ThisWorkbook.Path & "\" & "Daily report.xlsx")

For i = 1 To wk.Sheets.Count
    Workbooks(myName).Activate
    Sheets(1).Range("A1:J" & Range("A65536").End(3).Row).AutoFilter Field:=1, Criteria1:=wk.Sheets(i).Name
     Workbooks(myName).Activate
    Sheets(1).Range("A2:J" & Range("A65536").End(3).Row).Copy wk.Sheets(i).Range("A2")
   
Next
Workbooks(myName).Activate
Sheet1.Range("A1:J" & Range("A65536").End(3).Row).AutoFilter

End Sub

Peny2020

附件
加了保存关闭。


Sub test()

Dim i As Integer
myName = ActiveWorkbook.Name

Set wk = Workbooks.Open(ThisWorkbook.Path & "\" & "Daily report.xlsx")

For i = 1 To wk.Sheets.Count
    Workbooks(myName).Activate
    Sheets(1).Range("A1:J" & Range("A65536").End(3).Row).AutoFilter Field:=1, Criteria1:=wk.Sheets(i).Name
     Workbooks(myName).Activate
    Sheets(1).Range("A2:J" & Range("A65536").End(3).Row).Copy wk.Sheets(i).Range("A2")
   
Next
Workbooks(myName).Activate
Sheet1.Range("A1:J" & Range("A65536").End(3).Row).AutoFilter
wk.Close SaveChanges:=True

End Sub

wclle

Peny2020 发表于 2023-8-23 14:21
附件
加了保存关闭。

完全达到想要的效果，大神威武

wclle

Peny2020 发表于 2023-8-23 14:21
附件
加了保存关闭。

你好，我不知道怎么把你的代码跟我现有的代码结合起来，可以再麻烦你帮我看看，要做到下面的步骤，只用一个代码怎么去实现呢？
1. 清除Daily 开头的表里第2-第5张工作簿A2-AC有内容的单元格。
2. 合并所有XXCE到一个excel，形成一个合并底稿。
3. 从第二步产生的合并底稿中，筛选A列 “Category"，将对应类型的内容复制粘贴到Daily 表中跟”category“一样名字的工作簿A-AC列。

wclle

Peny2020 发表于 2023-8-23 14:21
附件
加了保存关闭。

Hi，我加不了你好友，也不能回复你的信息，只能在这里留言了

Peny2020

wclle 发表于 2023-8-24 12:52
Hi，我加不了你好友，也不能回复你的信息，只能在这里留言了

你有好几个XXCE 文件打开都报错？这是常态？

Peny2020

把附件像下图一样跟这些文件放一齐，打开按运行。
刚也说了，有些文件打开有问题，这部分我就没理会了。
你试试吧。

wclle

Peny2020 发表于 2023-8-24 14:20
把附件像下图一样跟这些文件放一齐，打开按运行。
刚也说了，有些文件打开有问题，这部分我就没理会了 ...

可以用这个模板，完全就是我想要的效果，非常 非常 非常感谢