Excel截取指定颜色字符之间的文字

 时间:2024-10-21 16:06:22

1、打开Excel表格,按下【Alt+F11】组合键调出VBE编辑器。

Excel截取指定颜色字符之间的文字

2、在VBE编辑器的菜单栏上面点击【插入】、【模块】。

Excel截取指定颜色字符之间的文字

3、在模块的代码框里边输入以下VBA程序。Sub Font_Color_Cut()Dim i1, i2, i3, i4, Str1, Str2On Error Resume Next '忽略运行过程中可能出现的错误Set mySheet1 = ThisWorkbook.Worksheets("Sheet1") '定义工作表Sheet1For i1 = 2 To 1000 '从第2行到1000行If mySheet1.Cells(i1, 1) <> "" Then '如果单元格不是空白,则 i4 = 0 Str2 = "" For i2 = 1 To Len(mySheet1.Cells(i1, 1)) '对单元格里面的每一个字符进行扫描 If mySheet1.Cells(i1, 1).Characters(i2, 1).Font.Color = RGB(255, 0, 0) Then '如果是红色字符,则 i4 = i3 i3 = i2 If i2 > i4 And i4 <> 0 Then Str1 = Mid(mySheet1.Cells(i1, 1), i4 + 1, i3 - i4 - 1) '截取字符 If Str2 <> "" And Str1 <> "" Then '判断拼接的字符Str2及截取的字符Str1是否为空 Str2 = Str2 & "," & Str1 '字符拼接 End If If Str2 = "" And Str1 <> "" Then Str2 = Str1 End If End If End If Next mySheet1.Cells(i1, 2) = Str2 '把拼接的字符写入同一行的B列单元格End IfNextEnd Sub

Excel截取指定颜色字符之间的文字

4、在VBE的功能区里边点击“运行”图标运行程序。

Excel截取指定颜色字符之间的文字

5、回到Sheet1工作表界面,将会看到已经截取出来字符。

Excel截取指定颜色字符之间的文字
  • excel中用函数嵌套提取单元格中中文或英文
  • WPS工作表中right函数提取出的数值为文本格式?
  • 图示EXCEL表格vba系列94之代码编写实现大于符号
  • 合并的单元格取消合并后怎么快速填充上空格
  • Excel字符串提取和分离
  • 热门搜索
    环境教育手抄报 关于勤俭节约的手抄报 我的未来不是梦手抄报 冬天手抄报 手抄报安全伴我行 呵护心灵手抄报内容 科学手抄报的资料 语文手抄报内容大全 六年级手抄报大全 交通的手抄报