移动包含指定字符的单元格，到另外一个工作表中

fjtv20020

数据筛选并移动.zip (7.91 KB, 下载次数: 35)

2016-1-7 19:41 上传

点击文件名下载附件

请哪位大侠帮我写个代码，实现下列功能。

将B列中包含关键字“均码”的单元格，将其所在行移动到sheet2

包含“S/M码”的，移动到sheet3

醉眼看尘世

sub test()
dim rG as range,i,mRow
with workSheets("Sheet1")
       mRow=.cells(.rows.count,2).end(3).row
       for i=1 to mrow
            if instr(.cells(i,2),"S/M") then
                 if rG is nothing then
                       set rG=.rows(i)
                 else
                       set rG=union(rG,.Rows(i))
                 end if
            end if
      next i
end with
rg.copy workSheets("Sheet2").[a1]
rG.delete
end sub

fjtv20020

非常感谢您的出手，解决了我的大问题。

lucasmnp

非常感谢您的出手，解决了我的大问题。

lucasmnp

醉眼看尘世 发表于 2016-1-7 19:57
sub test()
dim rG as range,i,mRow
with workSheets("Sheet1")

您好，醉眼看尘世前辈，请问，rg.copy workSheets("Sheet2").[a1]
如果这里，我本身SHEET2 的A1-A100单元格已经有资料呢，如何搬到A101的单元格呢，
因为本身A1单元格就是每次都会剪切到A1格，但如果A1-A100已经有资料呢？?