摘要： Dim b, s, m, c, n, sh, mh dz = Selection.Address b = Len(dz) - Len(Replace(dz, "$", "")) If b > 2 Then s = Len(dz) m = "" For c = 1 To s n = Mid(dz, c 阅读全文

摘要： Function CutR(str As String, endStr As String, getLen As Integer) As String 'CutR函数 '截取文本中指定开始字符，指定长度的字符串，如截取编号等 'str: 文本 'endStr: 目标字符串 , 或者编号的标识符 'g 阅读全文