提取指定单元格内容进行赛选，再把结果放到另个指定单元格，最后贴至剪贴板

亗仺叾巪吂

自个闹腾了半天，还是达不到目的。有老师抽空帮看下嘛？

提取单元格 E11 里的内容，在 E14 进行内容赛选，再选取 A14 下面第一个可见单元格的值 贴入 G7，最后把G7:G12的信息 复制于剪贴板

——————————————————————————
副本.rar (25.62 KB, 下载次数: 4)

2018-6-25 22:00 上传

点击文件名下载附件

liulang0808

1. Sub 按钮9_Click()
   
2.     Application.ScreenUpdating = False
   
3.     r = Cells(Rows.Count, "e").End(3).Row
   
4.     If Len([e11]) > 0 Then
   
5.         For j = 15 To r
   
6.             If InStr(Cells(j, "e"), [e11].Value) > 0 Then
   
7.                 [g1] = Cells(j, 1)
   
8.                 [g1:g12].Copy
   
9.                 GoTo l1
   
10.             End If
    
11.         Next j
    
12.     End If
    
13.     MsgBox "输入的[e11]单元格内的值不满足需求"
    
14. l1:
    
15.     Application.ScreenUpdating = True
    
16. End Sub
    

复制代码

liulang0808

附件内容供参考。。。。。。

亗仺叾巪吂

liulang0808 发表于 2018-6-26 07:41
附件内容供参考。。。。。。

感谢老师的热心帮忙T-T，问题已经得到解决

学习了！