Excel---提取单元格中红色字符串

Excel---提取单元格中红色字符串

申明：主要参考需求

EXCEL单元格中有标红的字符串，需要将其从整个字符串中提取出来

2 方法

使用VBA，看起来是通过循环的方式提取的 贴个函数，更具体的可以参考​​​GetColorText(pRange As Range) As String 'Updateby20141105 Dim xOut As String Dim xValue As String Dim i As Long xValue = pRange.Text For i = 1 To VBA.Len(xValue) If pRange.Characters(i, 1).Font.Color = vbRed Then xOut = xOut & VBA.Mid(xValue, i, 1) End If Next GetColorText = xOutEnd Function

2019-04-29小雨 于 南京市栖霞区 紫东

版权声明：本文内容由网络用户投稿，版权归原作者所有，本站不拥有其著作权，亦不承担相应法律责任。如果您发现本站中有涉嫌抄袭或描述失实的内容，请联系我们jiasou666@gmail.com 处理，核实后本网站将在24小时内删除侵权内容。