excel vba删除颜色字符

答案:3 悬赏:70

解决时间 2021-04-27 14:35

提问者网友：回憶丶初
2021-04-27 06:50

A5:A14为范围
2。只删除颜色字符

最佳答案

二级知识专家网友：茫然不知崩溃
2021-04-27 07:38

选中区域-F5定位-空值-确定-按一下空格(或输入空字符)-按CTRL+ENTER结束

全部回答

1楼网友：抱不住太阳的深海
2021-04-27 09:16

Sub xx() For i = 5 To 14 With Cells(i, 1) t = Cells(i, 1) For j = Len(t) To 1 Step -1 If .Characters(j, 1).Font.ColorIndex = 3 Then t = Left(t, j - 1) & Replace(t, Mid(t, j, 1), "", j, 1) End If Next End With Cells(i, 1) = t Next End Sub

2楼网友：苦柚恕我颓废
2021-04-27 08:13

sub macro1() dim xrng as range, firstrng as range if left(range("a1"), 3) = "d1[" then set firstrng = range("a1") else set firstrng = cells.find("d1[") end if set xrng = cells.find("d1[", firstrng) if xrng is nothing then msgbox "没有了" else msgbox xrng.row end if end sub

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息！