Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 3979|回复: 4

[求助] 新手求大神指点,按规则筛选数据然后搬运到另一个表

[复制链接]
发表于 2020-9-10 21:15 | 显示全部楼层 |阅读模式
3学分
求助各位大神,具体EXL在附件
需求:
1.找到Y列中不包含“周边”及“顺丰”字段,Z列为“SEEWO”和“MAXHUB”的行
2.将SEEWO所在行的A列复制到Sheet2的A列,将MAXHUB所在行的A列复制到Sheet3的A列

感谢感谢

谢谢大佬.zip

1010.13 KB, 下载次数: 2

最佳答案

发表于 2020-9-10 21:15 | 显示全部楼层
搜索数据.rar (1.01 MB, 下载次数: 12)
回复

使用道具 举报

 楼主| 发表于 2020-9-11 20:50 | 显示全部楼层

大佬,能麻烦再帮我看下,为什么我把你的代码用到另外几个SHEET中时,会提示自动化错误吗 找不到原因,数据口径都是一样的,就是这个数据源大一些

再次感谢大佬.zip

421.79 KB, 下载次数: 4

回复

使用道具 举报

发表于 2020-9-14 09:46 | 显示全部楼层
Sub CommandButton1_Click()
    Dim T0(1 To 3000), R0(1 To 3000), T%, R%
    ARR = Sheets("达成率数据源").UsedRange
    For I = 2 To UBound(ARR)
        If (Not InStr(ARR(I, 24), "周边")) And (Not InStr(ARR(I, 24), "顺丰")) And InStr(ARR(I, 25), "seewo") Then
            T = T + 1
            T0(T) = ARR(I, 1)
        End If
        If (Not InStr(ARR(I, 24), "周边")) And (Not InStr(ARR(I, 24), "顺丰")) And InStr(ARR(I, 25), "MAXHUB") Then
            R = R + 1
            R0(R) = ARR(I, 1)
        End If
    Next
    Sheets("达成率-seewo").Range("A2:A3000").ClearContents
    Sheets("达成率-seewo").Range("A2").Resize(T) = Application.Transpose(T0)
    Sheets("达成率-MH").Range("A2:A3000").ClearContents
    Sheets("达成率-MH").Range("A2").Resize(R) = Application.Transpose(R0)
    MsgBox "搞定!"
End Sub
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-28 21:23 , Processed in 0.625328 second(s), 11 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表