写一段自动提取excel里的关键字采集信息
时间: 2024-06-12 20:04:00 浏览: 15
自动提取Excel里的关键字可以采用VBA宏编程来实现。以下是一个简单的VBA宏代码示例,可以提取Excel表格中指定列的关键字,并将其输出到一个新的工作表中:
Sub ExtractKeywords()
Dim keywords() As String
keywords = Array("apple", "banana", "cherry") '指定关键字列表
Dim wsSource As Worksheet, wsDest As Worksheet
Set wsSource = ActiveWorkbook.Worksheets("Source") '源工作表名字
Set wsDest = ActiveWorkbook.Worksheets.Add '新建一个工作表
wsDest.Name = "Keywords" '新工作表名字
Dim lastRow As Long, i As Long, j As Long, k As Long
lastRow = wsSource.Cells(wsSource.Rows.Count, "A").End(xlUp).Row '获取源工作表最后一行行号
wsDest.Range("A1").Value = "Keyword" '新工作表第一列标题
wsDest.Range("B1").Value = "Row" '新工作表第二列标题
k = 2
For i = 2 To lastRow '从第二行开始循环读取数据
For j = LBound(keywords) To UBound(keywords) '循环匹配关键字
If InStr(1, wsSource.Cells(i, "B").Value, keywords(j), vbTextCompare) > 0 Then '如果匹配成功
wsDest.Cells(k, "A").Value = keywords(j) '将关键字写入新工作表
wsDest.Cells(k, "B").Value = i '将行号写入新工作表
k = k + 1 '下一行
Exit For '退出当前循环,继续下一行
End If
Next j
Next i
End Sub
以上代码中,我们首先指定了要提取的关键字列表,然后循环读取源工作表中的数据,并逐行匹配关键字。如果匹配成功,就将关键字和行号写入新建的工作表中。最后输出新工作表即可。
相关推荐
![doc](https://img-home.csdnimg.cn/images/20210720083327.png)
![rar](https://img-home.csdnimg.cn/images/20210720083606.png)
![rar](https://img-home.csdnimg.cn/images/20210720083606.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)