VBA excel数据提取（1）——从某一列中提取所需内容区间，并赋值给另一列

最新推荐文章于 2024-11-10 23:48:02 发布

Fenrir9999

最新推荐文章于 2024-11-10 23:48:02 发布

阅读量1.2w

点赞数 3

分类专栏： VBA编程专利撰写数据提取 EXCEL

本文链接：https://blog.youkuaiyun.com/weixin_44559388/article/details/88324380

版权

本文介绍了如何使用VBA在Excel中高效地提取特定区间的数据，例如从B列中筛选以'解决'开头，以'问题'结尾的文本，并将其存储到C列。这种方法适用于大量数据处理，避免了Word处理大篇幅文本可能导致的系统假死问题。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

笔者最近在做一个数据库项目，其中需要从EXCEL中提取关键字段。提取内容如下图所示，需要将图中加粗部分单独提出后进行去噪处理。如果通过word处理，文字量小的时候尚可实现，但几十万字的处理量很容易就造成假死。因此采用了EXCEL进行数据处理。
在这里插入图片描述

代码如下：功能是将B列中的数据筛选后存入C列

Sub 提取内容()
Dim searchtext
Dim textlong
Dim str_start
Dim str_end

For i = 1 To 2000
searchtext = Worksheets("sheet1").Range("B" & i).Value
textlong = Len(Worksheets("sheet1").Range("B" & i).Value)
'————————————————————————————确定提取的字符区间
    If InStr(searchtext, "解决") <> 0 Then
    str_start = InStr(searchtext, "解决")
    str_end = InStr(searchtext, "问题")
 '————————————————————————————避免B列出现不含有所要提取内容时报错
If str_start - str_end - 2 > 0 Then
Worksheets("B60J7摘要").Range("c" & i).Value = Mid(searchtext, str_start + 2, str_start - str_end - 2)
End If
 &#