灵鹊做题网excel的A1是：激光激光外协外协外协外协外协喷涂钳工钳工,如何用公式去掉重复的,变成激光外协喷涂钳工
来源：学生作业帮 编辑：灵鹊做题网作业帮 分类：综合作业 时间：2024/04/28 16:13:24
excel的A1是：激光激光外协外协外协外协外协喷涂钳工钳工,如何用公式去掉重复的,变成激光外协喷涂钳工
用SUBSTITUTE公式很长,有没别的方法
不好意思,没说清楚,激光激光外协外协激光,要变成激光外协激光,就是删除连续的相同的
用SUBSTITUTE公式很长,有没别的方法
不好意思,没说清楚,激光激光外协外协激光,要变成激光外协激光,就是删除连续的相同的
Function clear1(a)
Dim str1 As String
str1 = ""
atr1 = a.Count
If atr1 1 Then
clear1 = "error"
Exit Function
Else
End If
For i = 1 To Len(a)
If InStr(1, str1, Mid(a, i, 1)) > 0 Then
Else
str1 = str1 & Mid(a, i, 1)
End If
Next
clear1 = str1
End Function
把这个段拷贝进宏里面
在单元格 输入 =clear1（a1） 就可以了
Dim str1 As String
str1 = ""
atr1 = a.Count
If atr1 1 Then
clear1 = "error"
Exit Function
Else
End If
For i = 1 To Len(a)
If InStr(1, str1, Mid(a, i, 1)) > 0 Then
Else
str1 = str1 & Mid(a, i, 1)
End If
Next
clear1 = str1
End Function
把这个段拷贝进宏里面
在单元格 输入 =clear1（a1） 就可以了