excel表来自格列有许多单元格部分字体为红色怎么提取红色部分字体到相应单元格里面？-ZOL问答

6个回答默认排序

默认排序

按时间排序

没找到满意答案？去问秘塔AI搜索

取消复制问题

已采纳

要提取Excel表中的红色字体部分到相应单元格中，可以使用VBA编程来实现。以下是详细步骤：
1. 在工作表名称上右键点击，选择“查看代码”以打开VBA编辑窗口。
2. 在VBA编辑窗口中，插入一个模块，在右侧空白处右键点击并选择“插入---模块”。
3. 将下面的代码粘贴到模块中：
```VBA
Sub 提取红色字符()
For n = 2 To [a65536].End(3).Row
For i = 1 To Len(Cells(n, 1))
If Cells(n, 1).Characters(Start:=i, Length宣标金露:=1).Font.ColorIndex = 3 Then
k = k & Mid(Cells(n, 1), i, 1)
End If
Next
Cells(n, 2) = k
k = ""
Next
End Sub
```
4. 在代码中，我们使用了两个循环来遍历整个工作表，并且检查每个单元格的字体颜色是否为红色。如果是红色，则将相应字符添加到目标列中。
5. 最终效果如下所示：
| 提取前 |
|--------|
|

|
| 提取后 |
|--------|
|

|
如果需要在其他列中提取数据，请根据相应的代码进行修改。

取消评论

中文字体推荐

如果数据区域在a:d列，选择数据区域，在“条件格式”中，“新建规则”，以“公式建立规则”，输入
=a1=max(a:d)
格式选择“字体”颜色红色，确定，即可。

取消评论

maomao_

需要用到VBA代码，你要吗？

取消评论

wtl090429

这个如果用VBA就很简单了：
在工作表名称上右键----查看代码，弹出VBA编辑窗口，
在左侧任意位置右键----插入---模块：

把下面的代码粘贴到右侧：
Sub 提取红色字符()
For n = 2 To [a65536].End(3).Row
For i = 1 To Len(Cells(n, 1))
If Cells(n, 1).Characters(Start:=i, Length:=1).Font.ColorIndex = 3 Then
k = k & Mid(Cells(n, 1), i, 1)
End If
Next
Cells(n, 2) = k: k =
Next
End Sub

最后效果：
提取前：

提取后：

如果改变数据、目标列，请改变相应代码

取消评论