设计一个程序。根据关键词，筛选内容，复制到新的工作表中

李伟杰123 · 发表于 2023-2-9 22:35

本帖最后由李伟杰123 于 2023-2-10 08:53 编辑

微信截图_20230209223124.jpg

设计个程序，我点一下按钮，就能根据【病害关键词】将相应的【病害内容】筛选出来，分别复制到【新的工作表sheet】中（一个关键词建一个sheet）。

病害内容筛选.zip (17.08 KB, 下载次数: 29)

高个子 · 发表于 2023-2-9 23:21

Sub kdy()
Dim i As Integer
Dim sht As Worksheet
i = Sheet1.Range("a65535").End(xlUp).Row
For j = 4 To 16
Sheet1.Range("a1:a" & i).AutoFilter field:=1, Criteria1:="=*" & Sheet1.Cells(2, j) & "*"
Sheet1.Range("a2:a" & i).Copy Sheet2.Range("a" & Sheet2.Range("a65535").End(xlUp).Row + 1)
Next
Sheet1.Range("a1:f" & i).AutoFilter
End Sub

复制代码

李伟杰123 · 发表于 2023-2-10 07:17

高个子发表于 2023-2-9 23:21

这个怎么用

李伟杰123 · 发表于 2023-2-10 08:46

急用，求助

高个子 · 发表于 2023-2-10 08:57

李伟杰123 发表于 2023-2-10 07:17
这个怎么用

这个在论坛或者百度搜VBA代码怎么用，最多20分钟就会了

盼盼198310 · 发表于 2023-2-10 08:59

.............

李伟杰123 · 发表于 2023-2-10 08:59

高个子发表于 2023-2-10 08:57
这个在论坛或者百度搜VBA代码怎么用，最多20分钟就会了

需要按关键词分别放在不同的sheet
好弄吗？大神

李伟杰123 · 发表于 2023-2-10 09:02

盼盼198310 发表于 2023-2-10 08:59
.............

运行时错误：3706

李伟杰123 · 发表于 2023-2-10 09:05

盼盼198310 发表于 2023-2-10 08:59
.............

Cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source=" & ThisWorkbook.FullName

lushang2018 · 发表于 2023-2-10 09:15

		自动登录	找回密码
密码			免费注册

[求助] 设计一个程序。根据关键词，筛选内容，复制到新的工作表中