excel的A1是:激光激光外协外协外协外协外协喷涂钳工钳工,如何用公式去掉重复的,变成激光外协喷涂钳工
来源:学生作业帮 编辑:搜搜做题作业网作业帮 分类:综合作业 时间:2024/07/26 18:09:41
excel的A1是:激光激光外协外协外协外协外协喷涂钳工钳工,如何用公式去掉重复的,变成激光外协喷涂钳工
用SUBSTITUTE公式很长,有没别的方法
不好意思,没说清楚,激光激光外协外协激光,要变成激光外协激光,就是删除连续的相同的
用SUBSTITUTE公式很长,有没别的方法
不好意思,没说清楚,激光激光外协外协激光,要变成激光外协激光,就是删除连续的相同的
![excel的A1是:激光激光外协外协外协外协外协喷涂钳工钳工,如何用公式去掉重复的,变成激光外协喷涂钳工](/uploads/image/z/7241713-25-3.jpg?t=excel%E7%9A%84A1%E6%98%AF%EF%BC%9A%E6%BF%80%E5%85%89%E6%BF%80%E5%85%89%E5%A4%96%E5%8D%8F%E5%A4%96%E5%8D%8F%E5%A4%96%E5%8D%8F%E5%A4%96%E5%8D%8F%E5%A4%96%E5%8D%8F%E5%96%B7%E6%B6%82%E9%92%B3%E5%B7%A5%E9%92%B3%E5%B7%A5%2C%E5%A6%82%E4%BD%95%E7%94%A8%E5%85%AC%E5%BC%8F%E5%8E%BB%E6%8E%89%E9%87%8D%E5%A4%8D%E7%9A%84%2C%E5%8F%98%E6%88%90%E6%BF%80%E5%85%89%E5%A4%96%E5%8D%8F%E5%96%B7%E6%B6%82%E9%92%B3%E5%B7%A5)
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) 就可以了