筛选后的复制问题

沈默00

原表格进行筛选后，再复制出来就变成筛选后的内容了，可我需要的是原表格里全部的内容。代码要怎么修改？

吴中泉

既然筛选，不就是需要筛选后的结果吗？不然筛选干吗？

沈默00

吴中泉 发表于 2023-5-27 11:00
既然筛选，不就是需要筛选后的结果吗？不然筛选干吗？

产品清单在局域网其他电脑上，天天都会更新，我每天都会用到这个表，每次使用都要去打开，所以弄了个自动更新，这样比较快捷些。可别人筛选后我这里就更新不到了

gwjkkkkk

加一句是否可行？？？
If AutoFilterMode = True Then AutoFilterMode = False

cyq4896

请试一试吧

吴中泉

简单粗暴但实用

吴中泉

吴中泉 发表于 2023-5-27 11:33
简单粗暴但实用

1. Sub 更新BOM表()
   
2.     ThisWorkbook.Sheets("最新BOM").Range("a2:k5000").Clear
   
3.     Dim wb As Workbook
   
4.     Set wb = Workbooks.Open(ThisWorkbook.Path & "\产品清单.xlsx")
   
5.         wb.Sheets("BOM2022").Copy after:=Sheets(Sheets.Count)
   
6.         Sheets(Sheets.Count).Name = "ns"
   
7.         Sheets("ns").Range("a2:k5000").AutoFilter
   
8.         Sheets("ns").Range("a2:k5000").Copy ThisWorkbook.Sheets("最新BOM").[a2]
   
9.     wb.Close False
   
10. End Sub
    

复制代码

吴中泉

沈默00 发表于 2023-5-27 11:04
产品清单在局域网其他电脑上，天天都会更新，我每天都会用到这个表，每次使用都要去打开，所以弄了个自动 ...

是这样的啊，那更简单了，如图

沈默00

吴中泉 发表于 2023-5-27 11:33
简单粗暴但实用

可以了，还没学到这个呢

沈默00

cyq4896 发表于 2023-5-27 11:32
请试一试吧

可以，谢谢