KissingTheFire

摘要： 功能：v列有值的单元格内字符串截取 1 Sub Demo3() 2 Dim str 3 With ActiveSheet 4 For i = 2 To .Range("v65535").End(xlUp).Row 5 If Not Len(Trim(ActiveSheet.Cells(i, 22)) 阅读全文

摘要： 1.单个单元格局部文字高亮 新建模块，输入代码，开发工具插入按键，赋予DemoHighLightChar()函数。 1 Sub DemoHighLightChar() 2 Dim KeyWords As String 3 Dim i As Integer 4 Dim C As Range 5 Dim 阅读全文