新手，遇到难题，恳请帮忙，请大神门出招，在线等

ihihih

目前工作中遇到一难题，想要对一个总表的数据进行加工，按需求，将部分仓库代码的数据导入到一个表中，

同时加入VBA进行数据刷新与数据清除，数据清除的功能已实际，现在对于数据导入，按仓库代码分类导入不会了，请网友老师们帮帮忙，非常感谢！同时重新上传修改后的附件！ 具体的要求在附件里！

ihihih

帖子不能下沉啊，恳请网友老师们帮帮忙！

zax010

Private Sub CommandButton1_Click()
    Sheet1.Range("$A$3:$I$500").AutoFilter Field:=4, Criteria1:=Array( _
        "111", "111-S", "5102", "5201", "5201A", "5201B", "54012", "5401A", "5401B", "5401C", _
        "5401D", "7001", "7001B", "7807A", "7807B", "7807C", "8101A", "8101B", "8101C", "8101D", _
        "8101E", "8101F", "8101G", "8201A", "8201B", "8201C", "8201D", "8201E", "8201F", "s103") _
        , Operator:=xlFilterValues
    Sheet1.Range("A1").CurrentRegion.Copy Sheet2.[a1]
    Sheet1.Range("$A$3:$I$500").AutoFilter
End Sub

Sub zz()
    Sheet1.Range("$A$3:$I$500").AutoFilter Field:=4, Criteria1:=Array("L80", "L80-S"), _
    Operator:=xlFilterValues
    Sheet1.Range("A1").CurrentRegion.Copy Sheet3.[a1]
    Sheet1.Range("$A$3:$I$500").AutoFilter
End Sub

zax010

原代码改一下，自己测试吧。


shujujiagong.rar (78.37 KB, 下载次数: 11)

2015-11-28 09:10 上传

点击文件名下载附件

ihihih

zax010 发表于 2015-11-28 09:08
原代码改一下，自己测试吧。

zax0010  老师，代码测试，运行出错  1004

zax010

ihihih 发表于 2015-11-28 09:46
zax0010  老师，代码测试，运行出错  1004

我这里测试一切正常。

ihihih

zax010 发表于 2015-11-28 09:53
我这里测试一切正常。

zax010老师，测试通过，非常感谢！

ihihih

ihihih 发表于 2015-11-28 10:00
zax010老师，测试通过，非常感谢！

zax010 老师，现在发现一个问题，就是在查找数据前，无对总表设置筛选，不做任何动作，再在另一个表里进行数据导入，程序会报错。那如果在数据按仓库代码导入后，再对总表进行筛选，是没有问题，

之所以这样做，是进行数据测试，看有没有其它的数据没有按要求导入。

zax010

ihihih 发表于 2015-11-28 12:38
zax010 老师，现在发现一个问题，就是在查找数据前，无对总表设置筛选，不做任何动作，再在另一个表里进 ...

我这里测试没有这种情况，两张表无论谁先刷新都一样。

ihihih

zax010 发表于 2015-11-28 12:50
我这里测试没有这种情况，两张表无论谁先刷新都一样。

是先对总表进行筛选，不做任何操作，再对另外两个表进行刷新会出错。

还有一个，总表的数据行数很多，大概有60000多行，有些数据没有筛选到。