发布网友 发布时间:2022-03-26 21:30
共5个回答
懂视网 时间:2022-03-27 01:51
产品型号:ASUS S340MC
系统版本:Windows 10
软件版本:Microsoft Office Excel 2019
1、首先打开电脑上的Excel文件。
2、然后选择想要清除格式的单元格。
3、接着点击工具栏上方的开始选项。
4、找到编辑一栏里的清除图标。
5、最后在下拉选项中点击清除格式即可。
总结
1、首先打开电脑上的Excel文件。
2、然后选择想要清除格式的单元格。
3、接着点击工具栏上方的开始选项。
4、找到编辑一栏里的清除图标。
5、最后在下拉选项中点击清除格式即可。
热心网友 时间:2022-03-26 22:59
Alt+F11启动vba编辑器,点击菜单-插入-模块
在右侧代码区域粘贴以下代码:
Function GetColrNo(cc, no)
GetColrNo = cc.Characters(no, 1).Font.ColorIndex
End Function
Function GetColr(cc As Range, co As Integer) As String
For Each c In cc
gc = ""
For i = 1 To Len(c)
If c.Characters(i, 1).Font.ColorIndex = co Then
If Mid(c, i + 1, 1) <> Chr(10) Then
If Mid(c, i, 1) <> Chr(10) Then
gc = gc & Mid(c, i, 1)
End If
Else
gc = gc & Mid(c, i, 1) & Chr(10)
End If
End If
Next
If Right(gc, 1) = Chr(10) Then
gc = Left(gc, Len(gc) - 1)
End If
If Len(gc) > 0 Then
GetColr = GetColr & Chr(10) & gc
End If
Next
GetColr = Mid(GetColr, 2, 65534)
If Len(GetColr) = 0 Then GetColr = "#N/A"
End Function
这样,在excel中就生成了两个新函数,GetColr()和GetColrNo()
GetColr()的用法是,GetColr(目标单元格,色号)
目标单元格也可以是一个区域。
当不确定文字的颜色用什么编号时,可以用 GetColrNo(目标单元格,第n个字符数)先检测一下。
比如下表,通过
=getcolrno(A1,5)
得知红色文字为3号,然后用公式
=getcolr(A1,3)
或者
=getcolr(A1:A3,3)
即可求得所有红色文字内容。
也可以嵌套使用,直接输入:
=getcolr(A1:A3,getcolrno(A1,5))
热心网友 时间:2022-03-27 00:17
如果都是红色的字体,可以用筛选字体颜色。之后复制还是删除都可以追问除非每个单元格就只有红色或黑色,如果一个单元格里面又有红色又有黑色,这个方法就不行了追答可以排序呀,有颜色的在前面
热心网友 时间:2022-03-27 01:52
可以按照下面的方法试试,不一定好用。
热心网友 时间:2022-03-27 03:43
=left(a1,find(char(10),a1)-1)下拉追问不好意思,我截图的不够全面,有些单元格内不是第一个是红色字体的,可能是在中间的追答公式识别不了颜色,那公式*为力了